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1.0  INTRODUCTION 

This  Pollution  Hazard  Assessment  System  (PKAS)  is  a  suite  of  programs  used  to 
calculate  acceptable  site-specific  soil  or  water  pollutant  levels  from  which 
decisions  can  be  made  about  the  degree  of  hazard  at  a  site.  PHAS  performs 
this  task  by  a  modification  of  the  Preliminary  Pollutant  Limit  Value  (PPLV) 
approach1  as  described  by  Small2.  PHAS  allows  users  to  create  data  files  for 
s  site-specific  and  chemical-specific  data.  It  includes  a  group  of  techniques 

to  provide  estimates  of  chemical  property  inputs  to  PPLV  calculations  when 
experimental  values  are  not  available  in  the  literature.  The  present  version 
<  of  PHAS  is  designed  for  use  on  the  IBM  Personal  Computer  (PC),  its  family  of 

successors,  and  compatibles. 

This  document  describes  PHAS  and  is  intended  to  serve,  in  part,  as  a  user's 
manual.  The  general  assessment  problem  and  the  PPLV  approach  to  its 
resolution  is  discussed  in  Section  2.0.  This  helps  the  reader  to  understand 
the  system's  response  to  the  assessment  problem.  The  system  is  reviewed  in 
Section  3.0,  first  as  a  whole,  and  then  in  terms  of  component  programs. 
Operations  are  presented  at  two  levels.  Section  4.0  presents  instructions  for 
use  of  PHAS.  Section  5.0  presents  instructions  for  chemical  estimation 
subroutines  that  can  be  employed  in  conjunction  with  PHAS.  These  two  sections 
comprise  the  "user’s  manual"  of  PHAS  and  cover  the  "how"  and  "when"  aspects  of 
system  programs.  A  second  level  of  description  is  provided  for  persons 
interested  in  system  structure,  thus  Appendix  A  presents  PHAS  program  code  and 
commentaries  on  execution.  Appendices  B  and  C  respectively  provide  the 
equations  for  PPLV  evaluation  and  a  discussion  of  initial  input  data.  The 
present  document  relies  on  reference  2  for  the  bulk  of  the  technical  PPLV 
approach  details,  which  contains  much  background  and  explanation  not  provided 
in  the  Appendices. 

2.0  THE  PPLV  APPROACH  TO  HAZARD  ASSESSMENT 

The  US  Army  owns  property  contaminated  with  chemical  agents,  munitions, 
explosives,  smoke  residues,  solvents,  paints,  or  their  environmental  by¬ 
products.  The  contamination  occurs  in  soil,  surface  water,  or  groundwater. 
Decisions  need  to  be  made  as  to  whether  remedial  actions  are  required  to 
reduce  the  amount  or  extent  of  contamination,  despite  often  insufficient 
information  concerning  the  contaminants.  These  decisions  may  be  internally 
directed  by  the  Army  or  may  be  in  response  to  regulations  of  either  the 
Comprehensive  Environmental  Response,  Compensation  and  Liability  Act  of  19803, 
including  1986  amendments  (commonly  called  "Superfund”),  or  the  Resource 
Conservation  and  Recovery  Act4. 

The  PPLV  approach  has  been  developed  and  refined  at  the  US  Army  Biomedical 
Research  and  Development  Laboratory.  It  provides  answers  to  the  "How  Clean  is 
Clean?"  question,  which  is  central  to  determining  the  need  for,  or  the  extent 
*  of,  remedial  actions.  The  approach  can  be  used  for  such  applications  as 

determining  sensitivity  objectives  in  investigative  survey  sampling  or  for 
setting  remedial  action  target  levels. 

The  PPLV  approach  is  based  on  linking  soil  or  water  contamination  levels  to  an 
acceptable  intake,  which  if  attained,  either  through  direct  exposure  to  soil 
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or  water  or  through  consumption  of  foodstuffs  raised  or  grown  on  a 
contaminated  site,  does  not  pose  a  hazard  to  the  exposed  population.  For  the 
present  overview,  sites  will  be  discussed  in  terms  of  soil  contamination.  The 
approach  consists  of  the  following  steps: 

o  Determine  the  pollutants  of  concern. 

o  Determine  land-use  scenarios  and  component  pathways  through  which  people 
are  exposed  to  the  pollutants. 

o  Develop  an  equation  for  each  pathway  that  relates  the  human  intake  of  a 
substance  to  its  concentration  in  soil. 

o  Collect  data  needed  to  solve  such  equations. 

o  For  each  pollutant  and  scenario,  compute  the  soil  limits  for  individual 
pathways,  and  from  these,  calculate  a  PPLV. 

o  Interpret  the  results,  and 

o  Determine  if  other  considerations  (such  as  aquatic  toxicity)  might  indicate 
that  limits  lower  than  the  PPLV  should  be  applied. 

The  first  two  steps  in  the  PPLV  approach  answer  the  questions  “What  are  the 
contaminants  and  how  will  people  be  exposed  to  them?".  Often,  a  list  of 
substances  purchased  or  produced  during  active  production  is  available.  One 
should  not  accept  such  a  list  without  question.  Certain  substances,  such  as 
gases  or  extremely  volatile  liquids,  can  easily  be  eliminated.  Derived 
compounds  or  by-products  may  have  to  be  added.  The  presence  of  naturally 
occurring  or  ubiquitous  substances  must  be  addressed.  The  prudent  approach  is 
to  sample  and  analyze  for  all  suspected  soil  pollutants.  In  "Superfund"- 
related  actions,  this  is  part  of  the  Remedial  Investigation.  The  PPLV 
approach  can  provide  guidance  to  target  analytical  limits. 

In  the  second  step,  land-use  scenarios  are  defined  in  terms  of  current  or 
projected  activities  at  or  near  an  installation.  Each  scenario  will  have  one 
or  more  pathways  associated  with  it.  The  pathways  describe  specific  routes  by 
which  people  can  be  exposed  to  a  soil  pollutant.  For  example,  suppose  that  a 
contaminated  site  on  an  installation  includes  a  pond  designated  for 
recreational  purposes.  If  the  pond  is  used  for  fishing  and  there  is  run-off 
to  the  pond  from  contaminated  soils,  a  soil  ->  water  ->  fish  ->  human  pathway 
should  be  addressed.  If  there  is  a  picnic  and  play  area  at  the  site,  one 
might  expect  that  children  could  inadvertently  ingest  soil.  Then,  a  direct 
soil  ->  human  pathway  would  be  included  in  the  scenario. 

For  each  proposed  pathway,  an  equation  is  developed  to  describe  the  relation 
between  human  intake  and  the  pollutant  level  in  soil.  The  PPLV  approach  first 
processes  each  pathway  as  if  it  were  the  only  pathway  for  a  soil  contaminant 
to  reach  man.  The  human  intake  of  Interest  (units  of  mg/day)  is  based  on  a 
"safe"  or  "acceptable"  contaminant  dose.  This  dose  (units  of  mg/kg-day)  is 
given  the  symbol  Dj  .  The  computed  soil  concentration  is  called  as  a  "Single- 
Pathway  Limit  Value"  or  SPLV  . 


SPLV  relations  have  the  general  symbolic  form: 

SPLVi  «  BW  x  DT  /  (  IFi  x  f(Ki,Si)  )  (1) 

where  i  refers  to  a  specific  pathway.  IFi  is  an  "intake  factor",  that 
typically  includes  information  about  the  ingestion  rate  of  food,  water  or  air. 
BW  is  a  representative  body  weight  for  a  hypothetical  exposed  individual.  The 
functional  term  f (1C i , S i )  is  a  measure  of  the  ability  of  a  pollutant  to  be 
transmitted  from  soil  to  the  ingested  item  (if  the  Item  ingested  is  soil 
itself,  this  function  is  unity).  Ki  usually  includes  one  or  more  partition 
coefficients,  numbers  that  indicate  the  relative  pollutant  concentration  in 
adjacent  portions  of  a  pathway.  In  the  fish  pathway  discussed  above,  the  fish 
bioconcentration  factor  (BCF)  relates  the  quasi-equilibrium  concentrations  in 
water  and  fish.  Si  involves  site-specific  information  about  soil. 

The  next  step  is  to  calculate  the  PPLV  for  each  land-use  scenario.  The  PPLV 
is  usually  computed  from  the  component  pathway  SPLVs  of  a  scenario: 

PPLV  «l/2:  (SPLVi)-1  (2) 

i 

The  above  relation  is  valid  when  all  exposure  to  a  pollutant  is  described  by 
the  pathway  equations  and  the  f(Ki,Si)  do  not  vary  with  concentration. 

While  the  approach  described  above  addresses  adverse  effects  in  humans,  there 
is  no  guarantee  that  a  PPLV  would  be  a  safe  limit  for  other  species  of 
concern.  This  must  be  considered  in  a  complete  analysis.  Should  the  PPLV 
exceed  a  soil  or  water  concentration  that  could  cause  unacceptable  adverse 
effects  to  other  biota,  or  lead  to  aesthetic  problems,  a  "Type  1“  constraint 
is  said  to  occur.  A  second  contingency  to  be  addressed  is  that  the 
physicochemical  properties  of  a  pollutant,  particularly  water  solubility, 
could  preclude  a  dose  of  magnitude  Dj  from  being  attained  at  the  PPLV.  If 
this  occurs  (a  "Type  2"  constraint),  a  soil  level  In  excess  of  the  calculated 
PPLV  could  be  acceptable. 

PHAS  uses  "unit  contamination"  equations  to  compute  PPLVs.  The  equations 
assume  either  1  mg  pollutant/kg  soil  or  1  mg  pollutant/L  water.  For  each 
pathway,  the  equation  determines  exposure  resulting  from  the  presence  of  a 
unit  concentration  of  pollutant  in  soil  or  water.  The  sum  of  these  intakes, 

Im  (units  mg/day  per  unit  concentration),  can  be  contrasted  to  a  limiting 
Intake  BW  x  Dj.  from  which  the  PPLV  is  computed: 

PPLV  -  BW  x  Dj  /  Im  (3) 

To  demonstrate  the  agreement  between  equations  (2)  and  (3),  the  SPLV  relation 
of  equation  (1)  can  be  recast  as: 

SPLV  .  BW  x  DT  /  Ri  (4) 

If  this  is  inserted  in  equation  (2),  the  following  is  obtained: 

PPLV  -  BW  x  Dj  /  I  Ri  (5) 

1 
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From  (3)  and  (5),  Im  «  L  Ri.  The  RI  are  seen  to  be  pathway  Intakes 

i 

associated  with  unit  contamination.  Ri  values  can  be  obtained  from 
previously-developed  SPLV  equations;  from  the  symbolic  notation  of  equation  1, 

Ri  -  IF i  x  f (Ki ,Si) 

3.0  DESCRIPTION  OF  PHAS  STRUCTURE 

3.1  Hardware 

« 

You  will  need  a  PC  or  compatible  computer  system  with  640  K  capacity,  a  MS-DOS 
operation  system  of  level  3.1  or  higher,  along  with  either  GW-BASIC*  or  IBM 
BASICA*  software.  PHAS  will  run  on  a  system  with  either  two  floppy  disk 
drives  or  a  floppy  disk-hard  disk  drive  configuration.  A  printer  with  8.5- 
inch  wide  paper  is  required,  and,  as  a  minimum,  an  80-column  wide  monochrome 
monitor. 

PHAS  is  supplied  on  two  5-1/4  inch  floppy  disks  (see  Preface).  The  first  disk 
(Disk  1)  contains  phas  programs  and  read-only  data  files.  The  second  disk 
(Disk  2)  contains  external  files  for  the  storage  of  scenario  definitions  and 
the  storage  of  variables  used  in  assessment  computations.  The  programs  are 
supplied  in  source  BASIC  code;  the  program  codes  appear  and  are  explained  in 
Appendix  A. 

3.2  System  Structure  and  External  Files 

PHAS  is  designed  to  store  information  about  human  weight,  consumption 
patterns,  livestock  weight  and  consumption  data,  site  characteristics,  as  well 
as  the  physical-chemical,  environmental  transfer,  and  toxicological  properties 
of  substances  in  external  files.  These  files  can  be  created  at  one  time  and 
recalled  for  use  at  another  time.  Three  specific  types  of  files  are  used; 
they  are  differentiated  by  their  filename  extension.  You  will  have  to  know 
these  to  run  your  analyses.  The  extensions  will  be  used  in  the  text  for 
reference: 

.PTH  File  This  file  stores  two  Index  lists.  The  first  keeps  track  of 
pathways  involved  in  a  given  scenario,  and  includes  30 
elements.  The  second  Is  a  coded  index  describing  the  role 
of  data  in  PPLV  calculations,  and  includes  140  elements. 

It  is  called  the  Data  Use  Status  Table  (DUST).  This  file  also 
stores  one  alphanumeric  entry,  which  Is  either  'soil'  or 
’water’. 

.IDS  File  This  file  contains  90  numeric  entries.  The  entries  are  the 

non-chemical  specific  Information  inputs  in  a  PPLV  analysis,  \ 

Including  human  and  livestock  consumption  factors  and  site 
soil  characteristics. 


*  In  the  text,  availability  of  GW-BASIC  is  assumed. 
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.DAT  File  This  file  contains  SO  numeric  entries  and  an  alphanumeric 
entry.  The  numeric  entries  are  the  chemical-specific 
information,  while  the  alphanumeric  entry  Is  the  chemical  name. 

The  various  programs  In  PHAS  allow  you  to  access,  modify,  and  store  files. 
However,  you  can't  use  PHAS  to  delete  files.  For  this  purpose,  you  can  use 
the  DOS-provided  ERASE  or  DELETE  utilities*,  or  within  the  GW-BASIC  compiler, 
the  KILL  command. 

Figure  1  is  a  schematic  of  PHAS  structure.  Entry  to  and  exit  from  PHAS  Is  via 
0PEN11.  With  the  exception  of  CHMPRP11,  access  to  any  other  program  In  the 
structure  is  through  OPENU.  These  programs  are  briefly  described  In  Figure  2 
(This  also  appears  as  an  advisory  message  accessed  via  0PEN11). 

In  PATWAY11,  you  do  the  scenario-definition  phase  of  the  assessment  process. 

In  doing  so,  you  can  create  or  use  .PTH  files.  A  .PTH  file  can  be  used  in  the 
two  data-handllng  modules  INPUTS11  and  CHMFILli  as  a  "filter”,  whereby  only 
data  required  for  assessments,  or  Information  from  which  such  data  can  be 


*  The  "SHELL"  command  can  be  used  to  perform  these  chores  without  exiting  to 
DOS  from  GW-BASIC. 


Figure  1.  PHAS  System  Structure 
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. . .  OVERVIEW  OF  PHAS  PROGRAM  MOOULES  . . 

PATWAY  11  lets  you  select  the  exposure  pithway*  thet  comprise  e 
scenario.  The  module  Identifies  non-chemicel  end  chemical -related 
variables  required  for  the  analysis,  and  provides  a  punning  guide  to 
the  analysis.  Results  can  be  stored  In  an  off-line  .PTH  file. 

INPUTS11  processes  non-chemical  data  and  creates  off-line  .CDS  files. 
These  flies  can  be  down- loaded  and  used  In  PPLV  analyses  directly  or  their 
data  modified.  The  modified  data  can  be  stored  under  the  name  of  the 
down-loaded  file  or  under  a  new  name,  thereby  creating  a  new  file. 

CfMF i l 1 1  processes  chemical  data  and  creates  .DAT  files.  These  files 
can  be  down- loaded  and  used  In  PPLV  analyses  directly  or  their  data 
modified.  You  can  either  modify  down- loaded  data  or  obtain  estlmatea  from 
from  estimation  methods  In  CHMPRP1 1 .  Results  can  be  stored  as  discussed 
above  In  the  INPUTSli  paragraph. 

CHIPRP11  serves  two  purposes.  It  Is  used  by  CtMFILII  to  estimate 
chemical  properties  during  a  chemical  data  processing  routine.  ClOrfPRPi 1 
can  be  accessed  directly  from  0PEN11  for  *a  la  carte'  estimates;  In  this 
operating  mode,  you  supply  all  input  Information. 

C0MPUT11  calculates  PPLV  results,  and  as  an  option,  performs  constraint 
analyses  on  the  assessment  to  Identify  non-human  targets  that  should 
be  addressed  before  adopting  PPLV  values  as  criteria  for  clean-up  guidance. 

Figure  2.  On-Line  System  Description  Message 


estimated,  is  handled.  This  is  shown  by  the  dashed  lines  directed  from  a  .PTH 
file  to  each  of  these  modules. 

As  will  be  noted  in  Sections  4.5  through  4.7,  several  file  processing  options 
are  available,  ranging  from  the  simple  down-loading  of  existing  external  files 
to  their  creation,  modification,  and  storage  on  disk.  These  processes  are 
indicated  by  the  double-arrow  lines  connecting  each  file  with  a  corresponding 
module.  Moreover,  any  one  of  the  modules  can  be  entered  from  0PEN11. 

CHMFIL11  permits  use  of  the  module  CHMPRP11  to  quantitatively  estimate  values 
for  data  that  are  not  available  to  the  user  from  other  sources. 

The  COMPUTll  module  contains  the  unit  concentration  assessment  algorithm  and, 
as  an  option,  performs  the  two  constraint  analyses  described  in  Section  2.0. 
Data  for  C0MPUT11  can  be  obtained  in  several  different  ways.  At  one  extreme, 
you  can  simply  run  C0MPUT11  based  on  data  stored  in  .PTH,  .LDS,  and  .DAT 
files;  this  is  shown  by  the  three  lines  connecting  these  files  to  the  COMPUTll 
module.  At  the  other  extreme,  you  can  enter  PATWAY11,  INPUTSli,  and  CHMFIL11, 
develop  the  requisite  data  files  in  each  module,  and  then  enter  COMPUTll. 

Once  you  have  completed  an  assessment  in  COMPUTll,  the  files  remain  available 
for  alteration  of  variables  in  a  "what  if"  or  sensitivity  analyses. 

The  CHMPRP11  module  includes  Information  about  and  estimation  methods  for 
several  chemically-related  variable  properties.  It  can  be  accessed  through 
CHMFIL11 ,  whereby  the  method  results  can  be  retained  for  system  use.  You  can 
access  CHMPRP11  directly  from  0PEN11  for  operation  in  an  "a  la  carte"  mode, 
for  estimating  properties  without  storing  or  using  results  further  in  PHAS. 
When  the  CHMPRP11  module  is  accessed  through  CHMFIL11,  data  from  a  .DAT  file 
is  used.  However,  some  estimation  methods  also  require  information  from  a 
.IDS  file.  Thus,  Figure  1  shows  the  link  from  .LDS  files  to  CHMPRP11  as  a 
directed  line. 
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4.0  PHAS  OPERATING  INSTRUCTIONS. 


4.1  General  System  Notes 

PHAS  Is  user-friendly  in  several  respects.  It  provides  on-line  prompts 
describing  each  subsection  of  a  program  and  the  inputs  you  need  to  enter. 

After  a  manual  input  of  any  kind,  the  return  (enter)  key  is  pressed.  Your 
operational  inputs  are  either  integer  numeric  entries,  alphanumeric  entries, 
or  filenames.  All  alphanumeric  entries  ere  in  lower-case  characters.  Many 
halts  are  provided  to  permit  you  to  print  the  contents  of  a  screen  display. 

To  do  this,  simultaneously  depress  the  “Shift"  and  the  “Print-Screen"  keys. 

The  inputs  are  monitored  to  detect  common  errors.  When  such  an  error  occurs, 
you  are  so  informed,  and  you  can  repeat  the  input  process.  Common  errors 
include: 

*  An  integer  input  outside  of  the  values  specified. 

*  A  non-integer  input  when  an  integer  is  specified. 

*  An  unspecified  alphanumeric  input  (typographical  error). 

*  A  filename  input  that  violates  DOS  specifications. 

*  A  filename  input  with  a  missing  or  incorrect  extension. 

*  A  filename  input  for  a  non-existing  file. 

If  you  enter  an  alphanumeric  input  when  a  numeric  input  Is  expected,  or  vice 
versa,  the  compiler  Issues  the  message  "?Redo  from  start".  If  this  happens, 
check  your  input  and  enter  the  corrected  information  (followed  by  a  return). 

Specific  conventions  are  followed  In  the  instructions.  Modules,  file 
extensions,  and  specific  file  names  are  shown  in  capital  letters.  Direct 
passages  from  the  system  are  in  compressed  pitch  font  (oppressed  pitch  font) 
and  either  In  full  quotes  within  the  text  or  set  apart  from  the  text.  Inputs 
to  the  system  are  shown  In  single  quotes;  In  practice,  they  are  entered 
without  quotation  marks,  and  are  concluded  by  pressing  the  return  (enter)  key. 
The  term  "current  session"  refers  to  all  transactions  from  start  of  execution 
of  0PEN11  to  the  present  Instant.  The  term  "on-line  storage"  refers  to 
information  currently  stored  In  computer  memory;  the  Information  may  also  be 
stored  on  a  floppy  or  hard  disk.  The  term  "down-load"  means  to  transfer 
Information  from  a  file  on  an  external  storage  device  for  use  in  one  or  more 
PHAS  modules.  Several  paragraphs  and  sections  discuss  PHAS  arrangement  of 
data  elements.  These  passages  can  be  omitted  in  initial  readings  and  then 
read  after  you  gain  some  confidence  with  PHAS  operation.  They  are  preceded  by 
a  double  asterisk  (**). 

4.2  Installing  PHAS 

You  should  copy  Issued  PHAS  disks  (see  Preface)  for  day-to-day  operations  or 
for  Installation  purposes.  The  Issued  disks  can  then  be  stored.  Figure  3 
shows  PHAS  files  supplied  on  Disk  1.  As  a  minimum,  the  files  PROMPT. CMP, 
DEFALVA.LDS,  DEFALVC.LDS,  DEFALC.DAT,  S036AC.PTH  and  DEFAULT. PTH  are  provided 
on  Disk  2.  Other  .DAT  files  (Information  on  specific  compounds  prepared  by 
the  author)  and  .DOC  files  (documentation  for  these  files)  are  also  on  Disk  2. 
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Figure  3.  Listing  of  PHAS  Files  on  Disk  1 


The  specific  Installation  procedure  depends  upon  your  computer  disk  drive 
configuration.  Here,  Installation  Is  discussed  for  configurations  the  author 
has  encountered. 

4.2.1  Dual  Floppy  Disk  Drive  Operation 

The  files  of  Disk  1  (see  Section  3.1)  should  be  copied  to  a  floppy  disk 
containing  both  MS-DOS  and  6W-BASIC.  This  disk  Is  herein  called  the 
"Execution  Disk".  Next,  the  drive  In  which  the  Disk  2  files  will  reside  Is 
declared.  Insert  the  Execution  Disk  In  disk  drive  "A".  At  the  DOS  prompt, 
type  ‘gwbaslc  Install'  If  you  have  6W-BASIC;  If  you  have  BASICA,  type  'baslca 
Install ' . 

The  file  INSTALL. BAS  Is  executed  (see  Appendix  A  for  details).  A  menu  with 
four  numeric  options  Is  displayed.  For  dual  floppy  disk  operations,  select 
option  *2'.  For  PHAS  operations,  the  Execution  Disk  Is  placed  In  the  "A" 
drive;  Disk  2  Is  placed  In  the  "B"  drive. 

4.2.2  Virtual  Disk  and  One  Floppy  Disk 

You  can  reserve  a  portion  of  computer  memory  to  store  Disk  1  PHAS  programs. 

This  portion  1$  called  a  virtual  disk,  and  Is  here  called  the  "C"  drive. 

Prepare  an  Execution  Disk  as  described  above;  the  file  VDISK.SYS  (provided 

with  IBM  MS-DOS)  or  RAMDRIVE.SYS  (provided  with  Microsoft  MS-DOS)  must  be 

copied  to  this  disk.  The  DEVICE  statement  In  CONFIG.SYS  should  allocate  at 

least  300K  memory  to  the  virtual  disk.  Place  the  Execution  Disk  In  "A"  drive, 

and  do  the  INSTALL  procedure  discussed  above,  but  select  option  "1”  (this 

Indicates  that  Olsk  2  Is  to  be  located  In  the  "A"  drive).  ISSUED  PHAS  DISKS  , 

ARE  PRE-INSTALLED  FOR  THIS  CONFIGURATION.  Files  can  be  copied  from  the 

Execution  Disk  to  the  "C"  drive  by  the  global  COPY  command  ('copy  a:*.*  c:'). 

For  convenience,  you  can  prepare  an  AUTOEXEC.BAT  file  with  this  command.  * 

4.2.3  Hard  Disk  and  a  Floppy  Disk 

This  section  applies  If  you  want  to  put  your  executable  programs  on  a  hard 
disk.  First,  you  create  a  subdirectory  on  the  hard  disk,  and  then  you  copy 
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the  contents  of  Disk  1  to  that  subdirectory.  Depending  upon  how  your  system 
Is  configured,  you  may  have  to  copy  a  version  of  BASIC  to  that  same 
subdirectory.  In  the  INSTALL  procedure,  select  option  'l1.  During  PHAS 
operations,  Disk  2  Is  placed  In  the  aA"  drive.  ISSUED  PHAS  DISKS  ARE  PRE¬ 
INSTALLED  FOR  THIS  CONFIGURATION. 

4.2.4  Hard  Disk 

All  files  can  be  stored  on  a  hard  disk.  Copy  the  contents  of  Disk  1  to  a  hard 
disk  subdirectory  as  discussed  In  Section  4.2.3.  You  can  either  place  PHAS  In 
?  one  subdirectory,  or  have  the  execution  programs  In  one  subdirectory  and  the 

external  files  In  another.  If  you  wish  to  place  PHAS  In  one  subdirectory,  you 
select  option  '3*  In  the  INSTALL  procedure.  After  the  INSTALL  procedure,  copy 
the  contents  of  Disk  2  to  that  subdirectory.  If  you  want  the  external  files 
on  another  subdirectory  of  the  hard  disk.  In  the  INSTALL  procedure,  select 
option  *4'.  You  are  then  prompted  to  enter  the  full  subdirectory  name  In 
which  the  contents  of  Disk  2  will  reside*.  Then  copy  the  contents  of  Disk  2 
to  that  subdirectory. 

4.3  0PEN11 

4.3.1.  Operating  Procedures 

At  the  DOS  drive  prompt,  enter  'gwbasic  openll'  if  you  are  using  GW-BASIC;  If 
you're  using  BASICA,  enter  'baslca  openll1.  The  module  displays  the  main  menu 
(Figure  4).  Otherwise,  an  error  message  Is  displayed.  Indicating  an  error 
condition  and  the  probable  remedial  action;  see  Section  4.3.2. 

The  main  menu  accepts  a  prompt  value  between  1  and  10  (except  8)  to  start  a 
specific  function.  Entries  1  and  2  route  you  to  monltor-dl splayed  system  and 
program  explanations  of  PHAS  (l.e..  Figure  2  Is  the  system  explanation).  If 
you  enter  '2',  you  encounter  the  display  line:  *SELECT  function  huger  for  DESIRED  NOME*. 
Supply  the  option  number  for  the  desired  explanation.  At  the  conclusion  of  a 
module  display,  the  main  0PEN11  menu  reappears.  The  Input  '6'  Is  used  for 
viewing  specific  on-line  stored  data  units.  Instructions  for  use  of  this 
option  are  Included  In  Sections  4.4,  4.5,  and  4.6. 

Type  '10'  to  exit  PHAS.  0PEN11  prevents  termination  due  to  a  typing  error,  so 
you  must  confirm  your  request.  A  'yes'  entry  is  required  to  leave  the  system; 
a  'no*  entry  routes  you  to  the  selection  menu. 

4.3.2  Error  Messages  and  Resolution 

<  If  INSTALL. BAS  has  not  been  executed,  0PEN11  is  terminated.  You  are  advised 

of  this  condition.  When  applicable,  another  condition  checked  is  that  the 
Disk  2  files  are  In  the  floppy  disk  drive  selected  In  the  INSTALL  procedure. 

«  If  the  drive  Is  empty,  you  are  advised  of  this,  and  you  should  proceed  to 


*  For  example,  the  hard  drive  might  be  the  "D"  drive.  The  files  from  Disk  1 
have  been  copied  to  the  subdirectory  d:\themodll\d1ska\.  The  files  from  Disk 
2  are  to  be  copied  to  a  subdirectory  of  "themodll"  called  "diskb."  The  entry 
In  INSTALL. BAS  Is  d:\themodll\d1skb\. 
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POLLUTANT  HAZARD  ASSESSMENT  SYSTEM  (PHAS) 


Version  1.1,  March  1989 


............  MAIN  FUNCTION  SELECTION  MENU  •••••••••••• 

ENTER  FUNCTION  PERFORMED  BY  ENTRY 

1  To  get  •  brief  description  of  the  system. 

2  To  get  e  more  in-depth  description  of  specific  sioduies. 

3  To  do  your  scenario  definition  and  pathway  selections. 

4  To  do  your  non-chemical  data  selection  and  editing. 

5  To  do  your  chemical  data  selection  and  editing.  * 

8  To  review  on-line  data  and  pathway  Information. 

7  To  do  PPLV  Calculation  and  constraint  analysis. 

9  To  do  selected  Chemical  Estimation  Methods  'off-line'. 

10  To  exit  the  system. 

ENTER  YOUR  FUNCTION  NUMBER: 


Figure  4.  Main  Menu  of  the  0PEN11  Module 


Insert  the  correct  disk.  If  a  non-PHAS  disk  Is  In  a  floppy  disk  drive, 
replace  It  with  the  correct  disk.  In  either  case,  after  placing  the  correct 
disk  In  the  drive,  simply  press  the  "enter”  key  In  response  to  the  ”?”  prompt. 
However,  If  Disk  2  files  were  expected  In  a  hard  disk  subdirectory,  this  error 
would  occur  only  if  Disk  2  files  had  not  been  copied  to  that  subdirectory.  In 
this  case,  simultaneously  depress  the  "Control”  and  "Break”  keys  to  enter 
"direct  mode”  BASIC  operations,  and  then  type  ‘system1  to  exit  to  DOS.  Then 
copy  Disk  2  to  the  applicable  subdirectory  before  re-starting  PHAS.  If  you 
are  versed  In  BASIC,  you  can  use  the  "SHELL”  command  In  the  direct  mode  to 
Invoke  the  DOS  copy  utility  directly  and  then  continue  with  the  direct  mode 
command  ‘load  "openll",r  ’. 

4.4  A  Sample  Problem 

To  illustrate  PHAS  operations,  a  sample  problem  Is  processed  In  subsequent 
sections.  The  scenario  is  as  follows:  There  Is  an  area  of  a  former 
ammunition  plant  where  soil  Is  contaminated  with  ”trin1troanything”,  a 
persistent  organic  compound,  at  levels  up  to  2  mg/kg.  A  decision  Is  needed  as 
to  whether  a  2  mg/kg  level  Is  acceptable  for  current  land  use;  If  not, 
remedial  efforts  may  be  necessary.  The  area  is  rural,  consisting  of  small 
farms.  The  Inhabitants  grow  most  of  their  own  vegetables,  and  raise  cattle, 
primarily  for  their  own  consumption.  The  analyst  has  decided  to  also  Include 
"trlnltroanythlng"  Intake  via  Inhaled  vapors  diffusing  from  residential 
basements  and  the  Incidental  Intake  of  ingested  or  inhaled  particles  of 
contaminated  soil. 

4.6  PATWAY 11 

4.6.1  Running  PATWAY11 

You  access  this  module  by  responding  '3'  to  the  Selection  Menu  (Figure  4)  In 
OPENU.  The  lax  of  operation  selection  iff*;*  Is  displayed, 
and  you  are  queried: 
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Input  '1'  If  you  art  using  •  stored  fils  In  a  ' load  and  go*  soda  0H.Y. 

Otherwise  input  '2*. 

Enter  'l*  or  '2'  In  response.  PATWAY11,  INPUTS11,  end  CHMFItll  have  two  major 
modes  of  operation,  'load  and  go"  and  file  processing/storage.  In  the  "load 
and  go"  mode,  PATWAY11  down-loads  a  specified  .PTH  file  and  transfers  control 
back  to  OPENU.  In  terms  of  Figure  1,  this  process  Is  Indicated  by  arrows 
,  leading  from  a  stored  .PTH  file  through  PATWAY11  to  OPEHU.  This  mode  is 

useful  when  you  want  to  use  a  previously-created  .PTH  file  to  Index  several 
.LDS  or  .DAT  files  for  modification  purposes.  This  mode  Is  also  useful  If  you 
wish  to  review  the  contents  of  a  .PTH  file  tn  storage  (see  Section  4.5.2). 

In  either  operation  mode,  you  then  have  the  option  to  view  the  directory  of 
.PTH  files.  If  you  respond  'yes',  these  files  are  listed.  In  the  "load  and 
go"  mode,  this  listing  helps  prevent  you  from  down-loading  an  unwanted  file  or 
attempting  to  down-load  a  nonexistent  file.  If  you  are  In  the  file 
processing/storage  mode  and  plan  to  create  a  .PTH  file  for  storage,  you  should 
know  the  current  filenames  to  avoid  an  unintentional  overwrite  of  a  stored 
file.  An  overwrite  will  occur  If  you  designate  an  existing  filename  for 
storage.  On  the  other  hand,  you  may  want  to  Intentionally  overwrite  a  stored 
file;  this  Is  how  you  "modify"  a  .PTH  file  (see  below).  Filenames  remain 
displayed  until  you  select  a  filename  for  storage. 

In  the  "load  and  go”  mode,  the  module  requests  the  name  of  the  file  to  be 
down-loaded.  If  no  errors  occur  In  the  filename  response,  the  pathways 
Included  In  the  file  are  displayed.  Execution  pauses  so  you  can  review  the 
display,  and  after  the  requisite  'return',  program  execution  Is  transferred  to 
0PEN11. 

PATWAY11  does  not  modify  stored  .PTH  files.  Thus,  the  file  processing/storage 
mode,  which  is  Indicated  by  the  display  "scenario  omstrlction  routine*, 
always  starts  from  "scratch".  First,  you  designate  the  medium  of  Interest, 
either  'soil'  or  'water*  (In  the  sample  problem,  you  would  enter  'soil'). 

Based  on  this  designation,  the  module  presents  the  pathway  repertoire  one  path 
at  a  time.  Each  pathway  includes  a  description  of  what  process  It  portrays. 
The  description  Is  somewhat  cryptic  due  to  space  restrictions.  The  following 
rules  are  used;  the  pathway  6  and  pathway  12  descriptions  In  Figure  5  show 
examples  of  these  rules. 

*  The  description  proceeds  from  left  (the  medium)  to  right  (man). 

*  Transfers  with  partition  coefficients  are  Indicated  by  ' — >'. 

*  *  Unless  specified,  oral  human  uptake  Is  assumed.  If  another  route  Is 

Involved,  the  organ  Is  shown  In  braces,  such  as  [skin]  for  dermal  absorption. 

.  *  Transfers  to  man  are  Indicated  by 


*  Users  are  cautioned  of  a  system  "glitch”  at  this  step.  The  output  Is  a 
header  subdirectory  (or  disk)  and  a  list  of  files.  The  header  subdirectory  Is 
the  one  containing  PATWAY11,  and  may  NOT  be  the  subdirectory  containing  the 
.PTH  files. 
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*  In  case  the  pathway  involves  several  routes  to  an  intermediate  species 
(particularly  livestock  or  dairy  cows),  each  route  is  indicated  by  a  *444'  and 
the  intermediate  species  identification  is  bracketed. 

After  each  pathway  description,  answer  'yes'  or  'no'  when  prompted.  At  the 
conclusion  of  this  input  routine,  the  module  checks  if  no  pathways  were 
selected.  You  may  view  the  pathway  repertoire  to  see  its  contents;  in  that 
case,  all  'no'  responses  are  logical.  The  module  displays  this  message: 

NO  PATHWAYS  *RE  SELECTED  IN  THIS  RUN.  IS  THIS  tiAT  YOU  RANT? 

Please  enter  yes  or  no. 

If  you  respond  'yes',  control  is  transferred  directly  to  0PEN11.  If  you 
respond  'no',  it  repeats  the  entire  repertoire  query  routine.  In  the  sample 
problem,  a  'yes'  response  would  be  entered  for  pathways  3,  6,  10,  and  12 
(these  pathway  descriptions  are  shown  in  Figure  5). 

If  one  or  more  pathways  have  been  selected,  the  module  produces  a  line  printer 
output  such  as  shown  In  Figure  5.  As  this  is  prepared,  the  message 
*ncm  printing  out  oata  REQUIREMENTS  stMMRY*  Is  displayed.  The  printed  output  identifies 
the  variables  which  are  or  which  may  be  needed  to  compute  the  PPLV  for  the 
selected  pathways.  With  this  output,  you  can  plan  a  strategy  for  providing 
data  inputs. 

The  output  is  divided  into  several  sections.  The  first  lists  "global" 
variables,  which  are  used  in  every  relation.  The  second  section  describes 
each  selected  pathway,  and  the  variables  used  in  SPLV  equations  (see  Appendix 
B).  The  section  COf’UTATiQN  OPTIONS  FOR  CHEMICAL  MAIN  PATH  VARIABLES*  addresses  chemical- 
specific  variables  that  can  be  estimated,  and  goes  through  a  summary  listing 
of  estimation  routines.  Jhe  routines  reside  in  CHMPRP11.  The  final  section, 
constraint  analysis  advisory*  indicates  possible  "type  1"  and  "type  2"  constraints 
that  may  affect  the  usefulness  of  the  PPLV  as  an  assessment  criterion. 

At  the  conclusion  of  this  printout,  you  enter  the  “storage  disposition  icnu* 
where  you  are  given  the  option  to  retain  the  scenario  developed  in  external 
storage.  If  you  respond  '1',  this  option  is  declined.  If  you  respond  '2', 
you  are  prompted  for  a  filename  of  up  to  8  alphanumeric  characters.  The 
filename  must  meet  DOS  specifications,  and  this  prompt  will  be  repeated  if 
there  are  errors  (period  alphanumeric  or  too  many  characters).  Remember  that 
files  are  not  write-protected;  you  will  have  to  exercise  care  to  prevent 
unwanted  replacement  of  a  stored  file. 

The  output  from  PATWAY11  (either  the  contents  of  a  down-loaded  file  or  a 
created  scenario)  resides  in  on-line  storage  and  remains  there  until  you  * 

either  (1)  down-load  another  .PTH  file  in  PATWAY11  or  in  C0MPUT11,  or  (2) 
create  another  scenario  in  PATWAY11. 

i 

4.5.2  .PTH  Files 

Two  .PTH  files  are  on  Disk  2,  DEFAULT. PTH  and  S036AC.PTH.  One  .PTH  file  must 
be  stored  on  disk  at  all  times.  S036AC.PTH  is  the  file  for  the  sample 
problem. 
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PATHWAY  SELECTIONS  AND  SATA  NEEDS  SUMMARY 


FOR  ALL  PATHWAYS.  YOU  WILL  NEED 

Adult  bodv  Might,  kg  CBW3  or  Child  bodv  Might,  kg  CBWO 
and  dither 

Long  term  no-»f feet  human  dose,  mg/kg-dav  IDT3 
or  Shorter  term  no-effect  human  dose,  mg/kg-dav  CDTcl 

•••••••••••a  SPECIAL  ABBREVIATIONS  •••••«•••••• 

dwb  ■  dry  Might  basis 
nodim  “  dimensionless 
I  p.c.  ■  partition  coefficient 

»  i 

PATHWAY  3  eat  contaminated  vegetables  grown  in  soil. 

;  SOIL — >SOIL  PORE  WATER — >VEGS->>MAN. 

1  \ 

PRIME  VARIABLES  INVOLVED  IN  CALCULATION  ARE 
*  Reoresentatlve  vegetable  intake,  kg  dwb/dav  CWvl 

Adiustment  for  less  than  reoresentati ve  vegetable  intake  [SWv3 

Surface  soil  nominal  density,  kg/L  trhll 

Surface  soil  moisture  content,  fraction  Cthll 

Water  to  vegetable  oartition  coefficient,  L/kg  dwb  [Kwvl 

Soil  to  water  oartition  coefficient,  surface  soil  ,L/kg  CKdll 


PATHWAY  6  eat  beefi  cattle  graze  on  plants  in  contaminated  soil.  Ingest  soil 
and  drink  contaminated  water.  SOIL — >SOIL  PORE  WATER— >PLANT — )IW 
SOIL — >LU<  SOIL — >WATER — >£COW(beef ) ]->>MAN. 

PRIME  VARIABLES  INVOLVED  IN  CALCULATION  ARE 
Reoresentati ve  beef  intake,  kg/dav  (Mml 

Adjustment  for  less  than  reoresentati ve  beef  intake  tSWml 

Steer  uptake  of  water,  L /day  t Uwml 

Steer  uptake  of  forage,  kg  dwb/dav  CUoml 

Steer  incidental  uptake  of  soil  in  forage,  kg/day  IUsm3 

Surface  soil  nominal  density,  kg/L  Crhl3 

Surface  soil  moisture  content,  fraction  Cthll 

Drinking  water  body  sediment  nominal  density,  kg/L  Crh23 

Drinking  water  bodv  sediment  moisture  content  Cth23 

Water  to  forage  partition  coeffient,  L/kg  dwb  forage  CKwo3 

Plant  to  beef  partition  coefficent,  kg  dwb  forage/kg  meat  CKpoO 

Soil  to  water  partition  coefficient,  surface  soil  ,L/kg  IKdl3 

Soil  to  water  partition  coefficient,  pathwav  12,  L/kg  CKd23 


PATHWAY  10  intake  of  contaminated  soil  bv  combined  ingestion,  inhalation  or 
skin  absorption  under  'normal'  lifestvle  conditions.  B0IL->>MAN. 

PRIME  VARIABLES  INVOLVED  IN  CALCULATION  ARE 
Incidental  soil  ingestion  rate,  normal  conditions,  kg/dav  CWsn3 
Adiustment  for  non-model  exposure  to  soil /dust  CSWsnJ 


PATHWAY  12  inhalation  of  vapors  from  soil  surrounding  enclosed  space, 
such  as  a  basement.  SOIL— >S0IL  PORE  AIR->>Clungs3MAN. 

PRIME  VARIABLES  INVOLVED  IN  CALCULATION  ARE 
Inhalation  rate,  enclosed  area  vapor  model,  m^S/dav  CRbl 
Adiustment  for  tenure  in  enclosed  area  vapor  model  CSRb3 
Vapor -laden  soil  reoresentati ve  bulk  density.  kg/L  Crh33 
Vapor-laden  soil  reoresentati ve  moisture  content  Cth33 
Vapor -laden  soil  reoresentati ve  void  fraction  Ceo33 
Volume-area  ratio  of  basementlor  other  enclosure),  m  t VAR 1 
Time  oer  air  change  factor  for  enclosure  veoor  oath.davs  CTAC1 
Initial  time  of  anal vsi s (entrv) .,  basement  diffusion  case,  dav  CTObl 
End  time  of  analvsls.  basement  diffusion  case,  day  CTLbl 
Henrv  Law  constant,  dimensionless  £Kh3 
Molecular  diffusivitv  in  air.  m^2/dav  [Dal 

Soil  to  water  oartition  coefficient,  surface/subsurface  soil.  L/kg  tkd33 


Figure  5.  Scenario  Description  and  Input  Options,  Sample  Problem 
(page  1  of  3  pages). 
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••♦•••••••COTTUTATION  OPTIONS  FOR  CHEMICAL  MAIN  PATH  VARIABLES******** 

Water  to  vegetable  partition  coefficient,  L/kg  dwb  CKwv3 
can  b*  estimated  bv  three  methods  in  PHAS.  Firat. 

Khv  «  Watar  to  forage  partition  coaffiant,  L/kg  dwb  foraga  CKwol 
Sacond,  Kwv  ia  function  of 
Log  octanol-watar  partition  coafficiant  CLogKowl 
Third,  Kwv  can  ba  aatiaatad  froa 

Soil  to  foraga  partition  coafficiant,  kg  aoil/kg  dwb  foraga  IKsol 
or  Soil  to  vagatabla  partition  coafficiant,  kg  aoil/kQ  dwb  tKsvl 

If  aoil-watar  partition  coafficiant  info  ia  availabla  about  aoil 
uaad  to  charactarlza  Ksv  or  Kao  t  Kd(soil)  3, 

Kwv  ■  Kav  n  Kd(aoil)  or  Kao  x  Kd(soil) 

Saa  Kd2  aaaaaga  for  aatiaation  aathoda  of  Kd(aoil) 

NOTEi  Kwp  can  ba  aatiaatad  by  analog,  raplacing  Kwv  for  Kwo 
abova  and  vica  varaa. 

Kd2  aaaaaga  for  aatiaation  aathoda  applicabla  to  all  Kd. 

Soil  to  watar  partition  coafficiant,  pathwav  12,  L/kg  CKd23 
I  ■  Koc  x  foe  ♦  <th2/rh2> 

I 

I  Soil  organic  carbon  froa  watar  partition  coafficiant,  L  watar/kg  OC  CKoc3 
|  can  ba  aatiaatad  aa  a  function  of 

|  Natar  aolubilitv,  ag/L  1SW3 

j  or  Log  octanol -watar  oartition  coafficiant  CLogKowl 

I 

Plant  to  baaf  partition  coafficant,  kg  dwb  foraga/kg  aaat  CKoml 
can  ba  aatiaatad  by  two  aathoda.  Firat,  Kpm  «  Kpat  x  fa 
whara 

Forage  to  aaat  fat  part,  coafficiant,  kg  dwb  foraga/kg  adipoaa  tiasua  CKpat3 
Fat  content  of  baaf ,  fraction  Cfml 

Next,  Kpa  *  Kpd  x  (fa/fd),  where 

Plant  to  dairy  partition  coafficant,  kg  dwb  forage/L  milk  CKod3 
Fat  content  of  ailk,  fraction  Cfd3 


Koat  can  ba  aatiaatad  as  a  f uncti on  of 
Natar  solubility,  ag/L  CSW3 

or  Log  octanol-watar  partition  coafficiant  CLogKowl 

Hanrv  Law  constant,  diaensionless  CKh3 
•ay  ba  aatiaatad  by  the  Quotient  of 
Saturated  vapor  pressure,  aa  Hg  CVP3  divided  bv 
Water  splubllitv,  ag/L  CSW3 

Several  astiaation  methods  are  availabla  for  each  of  these. 

Watar  solubility  can  ba  estimated  from 

Log  octanol-watar  partition  coafficiant  !LogKow3 

Vapor  pressure  can  be  estimated  from 

Normal  or  extrapolated  boiling  point, dag  C  ITboill 

For  liquids.  Generally  for  solids. 

Normal  or  extrapolated  malting  point, dag  C  [Tmelt3 
will  ba  needed.  Check  CHMPRF11  for  more  details. 

Molecular  diffusivitv  in  air.  m~2/d*y  CDal 
can  ba  estimated  from  molecular  consonants  and 
Molecular  weight,  g/gmol  CMW1 

Kd2  massage  for  estimation  methods  apolicabla  to  all  Kd. 


I  Saa  Kd2  for  estimation  approaches  to 

Soil  to  watar  oartition  coafficiant.  surf ace/ subsurf ace  soil.  L/kg  CKd31 
Substitute  subscript  '3'  for  '2'. 


Figure  S.  Scenario  Description  and  Input  Options,  Sample  Problem 
(page  2  of  3  pages). 
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••••••••••  CONSTRAINT  ANALYSIS  ADVISORY  •••••••••• 

Tvpa  it  PPLV  mv  <dvtr**lv  •{fact  non-huaan  «ok1m  or  overlook 
non-toxic  idvtru  human  rtioonttt 

PPLV  mv  hava  advaraa  livamtock  affact  constraint  If 
Accaotabla  Halt  dosa  to  cattla.  ag/kg-dav  is  in  .dat  film 

PPLV  mv  hava  phvtotoxic  affact  constraint  if 
Phvtotoxic  limit  in  hvdroponic  solution,  ag/L  or 
Phvtotoxic  liait  in  soil,  ag/kg  is  in  .dat  fila 

I 

I 

i  Tvpa  2  constraint  occurs  if  cone,  in  watar  phasa  whan  soil  conc-»PPLV 

Excaads  Watar  solubility,  ag/L  CSWI 


Figure  5.  Scenario  Description  and  Input  Options,  Sample  Problem 
(page  3  of  3  pages). 

4.5.3  (**)  VIEWING  .PTH  FILES 

After  you  have  returned  to  0PEN11,  the  .PTH  file  contents  may  be  viewed.  At 
the  main  menu  (Figure  4),  select  option  6.  You  will  be  transferred  to  the 
"DISPLAY-prikt  UTILITY  icnu\  If  you  select  option  1,  you  can  view  the  pathway 
selected;  Figure  6a  shows  selections  (from  S036AC.PTH)  for  the  sample  problem. 
The  water-specific  paths  appear  In  the  first  column.  The  other  two  columns 
are  reserved  for  soil  pathways.  Paths  In  a  scenario  are  Indicated  by  the  T 
entry  In  Figure  6a;  otherwise,  "0"  appears.  As  examples,  pathway  3  is 
indicated  by  the  "1"  entry  In  the  *SoH  *1"  column,  third  row;  pathway  12  Is 
Indicated  by  the  "I"  entry  In  the  “Soil  #2*  column,  second  row. 

If  you  select  option  2  at  the  THSPlAY-reiHT  UTILITY  iou*,  you  can  view  the  data  use 
status  table  (DUST)  for  variables;  Figure  6b  shows  the  DUST  for  the  sample 
problem.  Each  variable  that  can  be  used  In  any  manner  In  PHAS  Is  Indexed  from 
1  to  140.  The  current  Index  assignments  for  these  variable  are  shown  In  Table 
1.  In  the  example  shown  In  Figure  6b,  the  44th  Item  Is  Upm,  which  represents 
dally  plant  uptake  by  a  steer.  Each  variable  Is  assigned  a  use  status  code  in 
the  DUST  of  either  'O',  *1',  '2','3',  or  '4'.  The  codes  translate  as  follows: 

Code  Meaning 

0  Variable  is  not  needed  for  scenario  processing. 

1  Variable  is  In  an  equation  used  in  scenario  processing. 

2  Variable  Is  not  In  an  equation  used  In  scenario 
processing,  but  may  be  used  to  estimate  data  which  Is. 

3  Variable  has  dual  uses;  see  code  1  and  2. 

4  Variable  Is  used  only  In  Type  1  constraint  analysis. 
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.............  DISPLAY-PRINT  utility  menu  ••••••••••••• 

Input  number  for  desired  printout 

Select  '1‘  for  pathway  status 

Select  *2'  for  data  use  status  table  (DUST) 

Select  ‘3‘  for  values  of  non-chemical  data  from  .LDS  file 
Select  ‘4‘  for  values  of  chemical  data  from  .DAT  file 
Select  '6‘  for  printout  of  variables  from  .LOS  and  .OAT  flies 
with  narrative  identies  supplied. 

Select  *6'  to  quit  this  utility  and  return  to  main  menu. 


Water 
Paths 
1  0 

2  0 

3  0 

4  0 

5  0 

6  0 

7  0 

6  0 

9  0 

10  0 


Soli  el 

Paths 

0 

0 

1 

0 

0 

1 

0 

0 

0 

1 


Soli  e2 
Paths 
0 
1 
0 
0 
0 
0 
0 
0 
0 
0 


1st  column  corresponds  to  water  pathways  1  thru  10. 

2d  column  corresponds  to  soils  pathways  1  thru  10. 

3d  column  corresponds  to  soils  pathways  11  thru  20. 
Current  Info  Is  from  loaded  or  stored  file  . . . so36ac.pt h 
If  no  file,  your  on-line  data  Is  not  stored  off-line. 

Hit  enter  (return)  to  continue.... 


a.  Pathways  Involved 


. .  DISPLAY-PRINT  UTILITY  MENU  ••••••••••••• 

input  number  for  desired  printout 

Select  '1'  for  pathway  status 

Select  '2'  for  data  use  status  table  (DUST) 

Select  ‘S’  for  values  of  non-chemical  data  from  .LDS  file 
Select  * 4 *  for  values  of  chemical  data  from  .DAT  file 
Select  ’5'  for  printout  of  variables  from  .LDS  and  .DAT  files 
with  narrative  Identies  supplied. 

Select  'S’  to  quit  this  utility  and  return  to  main  menu. 


•ten  «ten«1  eten.2  eten.3  eten.4  eten.S  eten.6  eten.7  eten.8 
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read  down  for  tens,  add 


Thus,  Item  at  row  4,  eten+4  (44) 
Hit  enter  (return)  to  continue.. 
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Is  index  for  Upm  (see  manua 


eten+9  eten.10 

0  1 

0  0 

0  1 

0  0 

4  0 

0  0 

0  0 

0  1 

0  0 

0  0 

0  0 

1  1 

0  0 

0  0 

Table  1) 


b.  DUST  for  Variables 

Figure  6.  Stored  PATWAYll-Created  Indices  in  PHAS  -  Sample  Problem  Scenario 
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4.5.4  Sources  of  Pathways  Used  In  PHAS 

The  current  version  of  PHAS  has  8  water  pathways  and  14  soil  pathway  options. 
The  first  7  water  pathways  and  13  soil  pathway  equations  were  presented 
recently  by  Small2.  Table  2  presents  a  crossjreference  between  the  pathways 
here  and  their  location  In  the  cited  document2.  That  document  should  be 
consulted  for  particulars  of  pathway  assumptions  involved.  The  last  water  and 
soil  pathways  deal  with  dermal  exposure  to  a  pollutant  in  water,  as  a  result 
of  showering,  bathing,  or  swimming  in  contaminated  water.  They  were  based 
upon  a  pathway  discussed  in  the  current  “Superfund  Exposure  Assessment 
Manual"8.  The  Manual's  presentation8  is  directly  used  for  the  water  pathway. 
The  soil  pathway  provides  for  the  transfer  of  contaminant  from  soil  to  water. 

(**)  The  equations  in  terms  of  variable  names  cited  in  Table  1  appear  In 
Appendix  B.  Appendix  B  also  lists  these  variables  with  more  detailed 
descriptions  than  is  provided  in  Table  1,  along  with  the  dimensional 
units  used  in  PHAS. 

4.6  INPUTS11 

4.6.1  Running  INPUTS11 

INPUTS11  is  accessed  from  0PEN11  by  responding  '4'  to  the  Selection  Menu  (see 
Figure  4).  This  module  and  CHMFIL11  are  quite  similar  in  construction. 

Unlike  PATWAYU,  both  modules  require  either  an  on-line  or  stored  file  to  be 
available  at  the  start  of  processing.  This  is  noted  in  the  initial  message  of 
the  -MAJOR  M30E  OF  OPERATION  tCNJ': 

Select  'V  to  process  on-line  Information  (In  prograe  eeaory) 

Select  * 2 *  to  use  a  stored  .LOS  file  In  a  'load  and  go'  aode. 

Select  '3'  to  eodlfy  a  stored  .LOS  file. 

Selection  '1*  Is  most  useful  when  you  are  making  “what-1f“  changes  to  the  data 
In  a  non-chemical  data  base  for  multiple  analyses.  On-line  information  is 
available  if  a  .IDS  file  has  been  previously  down-loaded,  either  In  INPUTS11, 
C0MPUT11  (See  Section  4.8),  or  in  CHMPRP11  (See  Section  5.2.9). 

Use  selection  '2'  if  you  wish  to  down-load  an  existing  database  without 
change.  This  selection  can  also  be  used  to  select  a  file  for  review  in  the 
diagnostic  selection  option  of  0PEN11  (see  Section  4.6.3).  Use  selection  '3' 
to  create  a  new  .LDS  file,  which  Involves  down-loading  an  existing  stored 
file,  possibly  changing  data  values,  and  storing  the  values  under  a  different 
filename.  You  can  also  use  selection  '3'  to  modify  a  stored  .LDS  file,  which 
involves  down-loading  that  file,  changing  data  values,  and  storing  the  values 
under  the  same  filename. 

If  you  make  selection  '1'  and  there  Is  no  on-line  information,  you  are  routed 
back  to  the  selection  menu.  Otherwise,  you  are  advised  of  the  last  down¬ 
loaded  file  and  given  the  option  to  continue.  If  you  choose  not  to  continue, 
you  are  routed  back  to  the  selection  menu. 
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VAR. 

VAR. 

INDEX 

IK3EX 

VARIABLE 

VARIABLE 

••••Huaan  Factors 

••••Olf'uslon  paths  parameters 

BN  (Adult  Body  Height) 

1 

VAR( vo lias-area  ratio) 

76 

6Nc(Chlld  Body  Height) 

2 

TAC(tin  per  air  change) 

77 

He(Nater  Intake) 

3 

VW(sind  velocity) 

78 

Hf(Flsh  Intake) 

4 

W(Slte  mixing  height) 

79 

Wv(Vegetable  intake) 

5 

T0b(  In  It  vial.  tln[basei't]) 

80 

•(Meat  Intake) 

6 

Tlb(end  anal.  tlie[besei't]) 

81 

Hd(Mllk  Intake) 

7 

LS(Length  of  site) 

82 

lten(Nor»al  Soil  Intake) 

8 

TOo(lnlt  anal.  tl»[outslde]) 

83 

HSc*(Dusty-area  sol  1  Intake) 

9 

TLo(end  anal,  tlie  [outside]) 

84 

Rb(Enclosed  area  breath  rate) 

10 

“••Chei-speclf  Ic  estimators 

R*(Norker  breath  rate) 

11 

IM(Uolecuiar  Height) 

91 

AV(Body  surface  area) 

12 

Tmelt(Ueltlng  Point  degC) 

92 

Teff(dermal  exposure  tlae) 

13 

Tbol l(Boi 1 Ing  point  degC) 

83 

SNw(Nater  Intake  adjustient) 

23 

Log  Koe 

94 

SNf(Flsh  Intake  adjustment) 

24 

HS(Rater  so  Utility  l  lilt) 

95 

SWv(Veg  intake  adjustient) 

25 

VP(Vapor  pressure) 

96 

SNu(Meat  Intake  adjustient) 

26 

Koc(SOC-eater  p.c.) 

101 

SNd(Dalry  Intake  adjustient) 

27 

Ksp(Soll-plant  p.c.) 

102 

SNsn(Soll  exposure  adjustment) 

28 

Ksv(Solt-veg  p.c.) 

103 

SNsc*(Dusty-area  adjustment) 

29 

foc(ref  for  Ksp) 

104 

SRb(Baseient  aodel  adjustient) 

30 

foc(ref  for  Ksv) 

105 

SR*(0pen  area  model  adjustient 

31 

Kpat (Plant-fatty  tlssuB  p.c.) 

106 

SAV(0enal  exposure  adjust.) 

33 

•••‘Chei-speclf Ic  equation  variables 

••••Cattle  Factors 

BCF(Bloconcentratlon  factor) 

111 

fi(fat  content  of  beef) 

41 

Kev(Hater-veg  p.c.) 

112 

fd(fat  content  of  ilik) 

42 

Kep(Hater-plant  p.c.) 

113 

Uei( eater  Intake  by  steer) 

43 

Kpi(Plant-ieat  p.c.) 

114 

Ubn(plant  Intake  by  steer) 

44 

Xpd(Plant-illk  p.c.) 

115 

Usa(soll  Intake  by  steer) 

45 

Kh(Henry  Lae  constant) 

116 

Ord(water  Intake  by  dalrycoe) 

46 

Da(Alr  dlffuslvlty  coeff.) 

117 

Upd(plant  Intake  by  dalrycoe) 

47 

Kd1(Surface  soil-eater  p.c.) 

118 

Usd(soll  Intake  by  dalrycoe) 

48 

Kd2(Sedlient  soil-eater  p.c.) 

119 

Body  eel  {fit  of  steer 

49 

Kd3(Sur/sibsur  soil-eater  p.c. 

120 

Body  eel  {fit  of  dalrycoe 

50 

PC(Derial  peri,  constant) 

121 

••••Site  Factors 

DT (Chronic  Hilt  dose) 

126 

foci (foe  surface  soil) 

56 

0Tc(Short  ten  Hilt  dose) 

127 

rhKbulk  density  surf,  soil) 

57 

••••Constraint  Data 

thKioisture  surface  soil) 

58 

Organleptlc  constraint 

131 

f(Sl)(dllutlon  factor  path  1) 

59 

Aquatic  tox  constraint 

132 

f(S2)(dl lutlon  factor  path  2) 

60 

Cattle  tox  constraint 

133 

foc2(foc  sedlient  soil) 

61 

Phytotox  ccnstalnt  (eater) 

134 

rh2(bulk  density  sed.  soli) 

62 

Phytotox  constraint  (soil) 

135 

th2(»lsture  sed.  soli) 

63 

foe  (ref  for  phytotox  soli) 

136 

epl(alr  porosity  surf,  soil) 

64 

foc3(foc  sur/sUbsur  soil) 

65 

NOTE:  See  Table  6-2  for  a 

rh3(bulk  density  "  "  ) 

66 

nre  detailed  explanation  of 

th3(»lsture  "  "  ) 

67 

sy*x>ls. 

ep3(a!r  porosity  "  ") 

68 

Table  1.  Variable  Symbols  and  Index  Assignments  In  the  Data  Use  Status  Table 
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Table  2.  Sources  of  Pathways  In  PHAS 
Description  ””  ~ 


Medium  and  Location  in 

Identification  Reference 


Domestic  water  consumption 

Water  #1 

2,  equation  7 

Soil  *1 

2,  equation  IS 

Fish  consumption 

Water  #2 

2,  equation  8 

Soil  *2 

2,  equation  16 

Vegetable  consumption 

Water  #3 

2,  equation  9 

Soil  #3* 

2,  equation  17 

Beef  consumption,  pollutant  in: 

drinking  water  only 

water  #4 

2,  equation  10 

pasture  only 

Soil  #4 

2,  equation  18 

pasture  and  water 

Water  *5 

2,  equation  11 

pasture  and  soil 

Soil  #5 

2,  equation  19 

pasture,  soil,  and  water 

Soil  #6* 

2,  equation  20 

Milk  consumption,  pollutant  in: 

drinking  water  only 

Water  #6 

2,  equation  12 

pasture  only 

Soil  #7 

2,  equation  21 

pasture  and  water 

Water  #7 

2,  equation  13 

pasture  and  soil 

Soil  #8 

2,  equation  22 

pasture,  soil,  and  water 

Soil  #9 

2,  equation  23 

Exposure  to  normal  dust  levels  (combined 
ingestion,  inhalation  and  skin  absorption) 

Soil  #10* 

2,  equation  24 

Exposure  to  construction-site  levels 
of  dust  (combined  as  above) 

Soil  #11 

2,  equation  25 

Exposure  to  vapors  diffusing  from  soil: 

in  confined  area 

Soil  #12* 

2,  eqtns.  26, 

28-30 

In  open  area 

Soil  #13 

2,  eqtns.  27-30 

Dermal  absorption  to  skin  from  water 

Water  #8 

5,  Appendix  A, 

Soil  #14 

Section  2.2 

*  These  pathways  are  used  in  sample  printout  shown  in  Figure  5 
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With  the  other  two  selection  options,  you  can  choose  to  view  .LDS  files  In 
storage  and  the  comments  In  the  PATWAY11  description  are  applicable  here. 

Then  you  are  given  the  option  to  down-load  the  default  file.  This  option  Is 
useful  when  you  want  to  develop  a  new  .LDS  file;  the  default  file  Is  a 
starting  point.  If  this  option  is  chosen  (by  a  'yes'  response),  the  file 
DEFALVA.LDS  Is  down-loaded  without  further  prompting.  Otherwise  (after  a  'no' 
response),  you  enter  the  name  of  a  file  to  be  down-loaded. 

If  you  select  the  'load  and  go'  mode,  the  designated  file  is  down-loaded  and 
control  returned  to  OPENU.  Otherwise,  the  "DATA  use  status  TABLE  (DUST)  LOADING  PROCESS 
itNU*  Is  presented  with  three  selection  options: 

Select  '1*  to  use  the  on-line  scenario  DUST. 

Select  ‘T  to  use  the  DUST  free  a  stored  *.PTH'  file. 

The  prograi  sill  preset  you  for  a  file  nan. 

Select  '3'  to  create  a  nee  file  for  storage  or  peruse  all 
data  In  a  .LDS  file.  Enter  selection: 

Each  variable  listed  in  Table  1  must  be  assigned  a  numerical  value.  However, 
for  a  given  scenario,  not  every  variable  Is  required.  The  DUST  limits  the 
modification  process  to  only  those  variables  potentially  relevant  to  a  given 
scenario.  If  you  select  option  '1',  the  on-line  stored  DUST  is  accessed.  If 
you  select  option  '2',  the  DUST  from  a  .PTH  file  to  be  specified  will  be  used. 
Option  * 3 *  allows  you  to  access  all  data  in  the  down-loaded  .LDS  file. 

If  you  select  option  '1'  but  there  is  no  valid  on-line  scenario  Information, 
you  will  be  sent  back  for  another  option.  If  you  choose  option  '2',  you  get 
the  opportunity  to  see  a  list  of  .PTH  files,  after  which  you  enter  the  desired 
filename.  Note  that  If  you  select  this  option,  the  down-loaded  information 
from  the  selected  .PTH  file  will  NOT  be  In  on-line  storage  after  you  exit 
INPUTS11  (see  Appendix  A. 5  for  more  details). 

After  the  DUST  Is  selected,  the  data  handling  section  Is  announced  by  the 
message  *data  review  am)  modification  routiic*.  From  this  point,  the  module  proceeds  in 
a  similar  manner  with  all  Index  options.  Each  data  item  title  is  displayed 
with  the  current  numerical  value  and  the  role  of  the  data  In  the  scenario 
analysis.  You  are  queried: 

*  Enter  T  to  accept  current  value  and  aove  on  to  next  variable’ 

*  Enter  'T  to  change  value.  Enter  choice...* 

If  you  respond  with  '!',  the  next  data  entry  Indicated  by  the  DUST  Is 
accessed.  If  you  respond  '2,'  you  are  prompted  to  enter  a  revised  value. 

After  this,  the  current  information  Is  re-displayed  for  your  confirmation. 

At  the  conclusion  of  this  routine,  you  reach  the  *storage  disposition  UE>tr. 

Three  options  are  presented  to  you.  If  you  choose  option  '0,'  data  are  stored 
only  on-line.  If  you  choose  option  '1,'  the  on-line  stored  data  are  written 
to  the  file  down-loaded  at  the  start  of  the  current  INPUTSU  module  process 
(an  existing  .LDS  file  Is  modified).  If  you  choose  option  '2,'  you  are 
prompted  to  provide  a  filename  for  storage.  If  option  '1'  or  option  '2'  Is 
selected,  storage  occurs,  and  the  filename  is  echoed  back  to  you.  With  any  of 


these  options,  the  data  base  at  the  end  of  the  INPUTS11  session  Is  In  on-line 
storage  (see  above).  The  data  base  remains  In  on-line  storage  unless  one  of 
the  following  occurs: 

o  You  exit  PHAS. 

o  You  subsequently  down-load  another  .LDS  file  In  the  INPUTS11,  C0MPUT11  or 
CHMPRP11  module. 

4.6.2  .LDS  Files 

Two  default  .LDS  files  are  provided  on  Disk  2.  DEFALVA.LDS  and  DEFALVC.LDS. 
These  files  should  not  be  changed;  PHAS  will  prevent  you  from  storing  a 
modified  data  base  with  these  filenames.  When  you  set  up  a  .LDS  file,  don't 
replace  non-zero  values  supplied  In  DEFALVA.LDS  or  DEFALVC.LDS  with  zeros  for 
"don't  know"  or  "don't  care"  variables. 

(**)  Table  1  Identifies  all  variables  Involved  In  PHAS  calculations.  The 
Items  Indexed  from  1  to  90  are  processed  In  INPUTSU.  Items  1-13  deal  with 
human  factors  such  as  body  weight  and  consumption  rates.  The  values  presented 
In  DEFALVC.LDS  are  for  children  while  those  In  DEEALVA.LDS  are  for  adults. 

The  values  In  these  files  were  developed  by  Small2,  and  are  representative 
values  for  adults  (or  children).  In  particular,  the  values  chosen  for  the 
consumption  variables  (  Ww  ,  Wf  etc.)  are  based  on  a  substantial  degree  of 
Intake  supplied  via  the  chosen  pathways.  However,  the  Intakes  are  usually  on 
a  per-caplta  basis  (for  example,  the  vegetable  Intake  [0.034  kg/day,  dry 
weight]  assumes  that  a  majority  of  the  vegetables  would  come  from  gardens,  and 
that  the  target  person  does  not  eat  more  vegetables  than  would  a  per-caplta 
person.)  If  you  prepare  .LDS  files,  corresponding  sets  of  .LDS  files  should 
be  prepared  for  both  adults  and  children;  the  Intake-to-body-welght  ratio  for 
children  can  be  much  higher  than  for  adults. 

(**)  Variable  Items  Indexed  from  23-31  and  33  can  be  used  to  "adjust" 
variables  Indexed  from  3-11,  and  13  for  conditions  different  for  those  from 
which  they  were  derived.  These  factors  are  set  to  unity  In  DEFALVC.LDS  and 
DEFALVA.LDS.  The  first  five  Involve  consumption  of  water  and  food,  and  their 
determination  Is  straightforward  (based  on  the  consumption  for  the  pathway  you 
select  as  contrasted  to  the  values  provided).  The  others  are  more  complex, 
and  Appendix  C  should  be  consulted  for  guidance  In  altering  their  values. 

(**)  Variables  Indexed  from  41-60  deal  with  cattle-related  Information.  They 
are  based  on  information  reported  or  developed  in  Small2.  Variables  Indexed 
from  56  to  58  and  from  61  to  68  are  for  specific  soil  properties.  Those 
suffixed  '1*  are  associated  with  surface  soil  conditions.  Those  suffixed  '2' 
are  associated  with  sediment  conditions,  such  as  at  the  bottom  of  small  lakes. 
Those  suffixed  *3'  are  associated  with  soil  surrounding  basements,  which  due 
to  construction  practices  may  be  Intermediate  in  properties  between  surface 
soil  and  sub-surface  soil.  Variables  Indexed  from  76  to  84  are  involved  In 
diffusion  models  of  vapor  flux  generation  from  contaminated  soils. 

(**)  The  variable  at  index  59,  f(Sl),  appears  in  equations  for  soil  pathway  1 
(drinking  water)  and  14  (dermal  exposure).  The  variable  at  Index  60,  f(S2), 
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is  in  the  fish  consumption  pathway  equation.  They  can  be  considered  as 
model  adjustments  relative  to  a  worst  case  model  situation,  that  of  water  in 
equilibrium  with  the  contaminated  soil  mass  of  concern.  The  equilibrium  is 
described  by  a  "Kd"  (see  index  118  and  119  in  Table  1),  which  can  be  construed 
as  the  mg/kg  of  pollutant  in  soil  required  to  provide  1  mg/L  pollutant  in 
water  at  equilibrium.  At  equilibrium  conditions,  f (SI )  and  f(S2)  would  be 
unity.  A  model  (such  as  groundwater  migration  from  a  contaminated  soil  mass 
or  overland  run-off)  can  provide  a  result  expressed  in  the  same  manner  as  a 
Kd,  the  mg/kg  of  pollutant  in  soil  required  to  provide  1  mg/kg  in  water.  The 
variables  f ( SI )  and  f($2)  are  then  the  division  of  the  model  result 
respectively  by  Kdl  or  Kd2.  For  example,  if  Kdl  was  3  mg/kg  per  mg/L,  and  a 
model  result  was  100  mg/kg  per  mg/L,  f ( SI )  would  be  3/100  or  0.033. 

4.6.3  (**)  Viewing  . LDS  Files 

The  data  developed  or  down-loaded  in  INPUTSll  can  be  reviewed  in  the  0PEN11 
module  in  one  of  two  ways.  The  contents  are  displayed  on  the  monitor  if 
option  '3'  is  selected  at  the  “DISPLAY-PRINT  utility  fcCHU”.  The  display  of  data  in 
DEFALVA.LDS  by  this  option  appears  in  Figure  7.  In  this  display,  items  1-5 
appear  in  the  first  row,  6-10  in  the  second  row,  etc.  Thus,  the  value  “6.6" 
at  the  row  "40+"  and  column  "four"  is  Upm  (item  44  from  Table  1).  The 
contents  can  be  printed  if  option  '5'  is  selected.  In  this  case,  the 
identification  of  each  variable  is  listed  along  with  the  datum  value. 


DISPLAY-PRINT  utility  menu  ••••••••••••• 

Input  number  for  desired  printout 

Select  *1'  for  pathway  status 

Select  '2'  for  data  use  status  table  (DUST) 

Select  '3'  for  values  of  non-chemical  data  from  .LDS  file 
Select  ' 4 '  for  values  of  chemical  data  from  .DAT  file 
Select  'S’  for  printout  of  variables  from  .LDS  and  .DAT  files 
with  narrative  Identles  supplied. 

Select  ’6‘  to  quit  this  utility  and  return  to  main  menu. 
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Figure  7.  Data  in  DEFALVA.LDS 
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4.7  CHMFIL11 


4.7.1  Running  CHMFIL11 

CHMFIL11  Is  accessed  from  0PEN11  by  responding  '5'  to  the  Selection  Menu  (see 
Figure  4).  Since  the  operations  In  this  module  are  quite  similar  to  INPUTS11, 
this  discussion  skims  over  common  points  and  highlights  differences. 

You  choose  one  of  three  options  at  the  "MAJOR  uooe  OF  operation  icnu*  to  process  on¬ 
line  Information,  to  process  a  stored  .DAT  file  In  a  "load  and  go"  mode,  or  to 
modify  a  stored  .DAT  file.  The  review  and  selection  (If  needed)  of  a  .DAT 
file  parallels  those  of  INPUTS11  for  .LDS  files.  At  the  "data  use  status  table 
(DUST)  loading  PROCESS  ICNU*.  you  have  three  options:  use  the  on-line  stored  DUST 
(option  "1"),  download  a  DUST  from  a  .PTH  file  In  off-line  storage  (option 
"2"),  or  review  all  data  elements  (option  "3"). 

The  "data  review  AM)  mooification  ROUTINES"  follows.  The  module  displays,  one 

at  a  time,  names  of  the  variables,  their  status  in  the  scenario  analysis  and 

their  current  values.  Here,  you  have  three  options  for  data  assessment. 

Option  '1'  accepts  the  value  given.  Only  when  this  option  Is  selected  does 
the  module  move  on  to  the  next  name  and  value  combination.  Option  *2'  allows 
you  to  insert  a  different  value,  and  after  it  Is  selected,  you  are  prompted 
for  the  replacement  value.  Figure  8  shows  a  portion  of  the  display  for 
hypothetical  processing  of  two  variables  from  the  default  file  DEFALC.DAT. 

The  display  Illustrates  both  of  these  responses.  Option  '3*  transfers 
execution  to  the  CHMPRP11  module  where  you  can  estimate  some  of  the  Inputs 
which  directly  enter  Into  PHAS  equations.  As  noted  in  Figure  8,  an  advisory 
message  Is  displayed  Indicating  whether  an  estimation  routine  Is  available  In 
CHMPRP11.  After  a  routine  In  CHMPRPU  computes  an  estimated  value,  the 
estimate  is  presented  for  acceptance. 

At  the  conclusion  of  the  data  processing  routine,  the  chemical  name  listed  is 
displayed,  and  you  are  given  the  option  to  change  the  name.  You  can  Input  up 
to  255  characters  (3  lines)  at  this  prompt.  Finally,  CHMFIL11  displays  the 
"storage  disposition  tCNJ"  ,  whose  options  are  the  same  as  those  in  INPUTS11: 
no  off-line  storage,  store  data  In  a  file  with  the  same  name  as  the  down¬ 
loaded  file  (modify  a  file),  or  store  data  in  a  file  with  a  new  name  (create  a 
new  file).  Then,  control  passes  back  to  0PEN11. 

4.7.2  .DAT  Files 

The  default  file  DEFALC.DAT  Is  supplied  on  Disk  2.  Don't  delete  this  file. 
Although  DEFALC.DAT  is  not  write-protected,  inexperienced  users  should  not 
modify  this  file. 

(**)  The  variables  Indexed  from  91  to  140  in  Table  1  are  stored  in  a  .DAT 
file.  Items  Indexed  from  91  to  106  do  not  appear  In  pathway  equations,  but 
they  can  be  used  to  estimate  variables  which  do.  These  variables  have  been 
ordered  so  that  the  most  fundamental  variables  appear  first.  A  DUST  filters 
out  variables  that  are  definitely  not  required  in  a  PPLV  analysis.  For 
example.  If  you  know  Kwp  (the  water  to  forage  partition  coefficient)  or  plan 
to  estimate  It  from  log  Kow,  you  will  not  need  to  process  Ksv, 
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Meat  fat«-Diant  p.c..  kg  dwb  forage/kg  adlpoae  tiaaue  tKpatJ  - 
1 . 822803E-03 

Status  In  scenario  ls:ltem  may  be  needed  to  estimate  Input  variable 

Select  '1'  to  accept  value. 

Select  '2'  to  Insert  new  value. 

Select  '3*  to  enter  estimation  routine  for  value 
Estimation  routine  available. 

Enter  your  selection:  1 


Fish  b loconcentrat Ion  factor,  L/kg  fish  CBCF]  -  10.15409 

Status  In  scenario  ls:Maln  Input  variable 

Select  '  1*  to  accept  value. 

Select  ' 2 ‘  to  Insert  new  value. 

Select  '3‘  to  enter  estimation  routine  for  value 
Estimation  routine  available. 

Enter  your  selection:  2 

Input  revised  value.?  13 

Fish  bioconcentrat Ion  factor,  L/kg  fish  CBCF]  •  13 

Status  In  scenario  ls:Maln  input  variable 

Figure  8.  Sample  Display  of  Data  Handling  Routine  in  CHMFIlll 

Ksp,  their  associated  foe  values,  or  Kwv  (other  variables  from  which  Kwp  could 
be  estimated).  This  points  up  the  utility  of  reviewing  the  printout  from 
PATWAY  11  (Figure  5)  before  doing  operations  in  CHMFILU. 

(**)  Variables  Indexed  from  131  to  136  relate  to  type  1  constraints  (see 
Section  2.0).  If  you  are  preparing  a  .DAT  file  and  data  are  not  available  for 
such  a  variable,  enter  a  negative  number  as  the  variable  value.  This  will 
prevent  extraneous  listings  In  the  module  C0MPUT11. 

4.7.3  (**)  Viewing  .DAT  Files 

The  variables  in  the  .DAT  file  can  be  reviewed  in  the  0PEN11  module  in  two 
ways.  At  the  main  selection  menu,  select  function  '6*.  At  the 
display-print  UTILITY  ICNU*.  select  option  '4'.  A  display  similar  to  that  in  Figure 
9  will  appear.  The  placement  scheme  is  similar  to  that  discussed  for  Figure  7 
(Section  4.6.3).  Note  that  item  135  (last  entry  on  line  "130+")  is  assigned 
the  value  -1  ,  a  negative  number  to  indicate  no  available  data  as  noted  above. 
You  also  can  get  a  print-out  of  the  variables  by  selecting  option  '6';  the 
printout  Includes  the  variable  names  as  well  as  values. 

4.7.4  Pre-packed  Files 

PHAS  includes  prepared  .DAT  files  for  Army  explosive-related  substances.  Each 
.DAT  file  has  a  corresponding  .DOC  file,  where  documentation  for  the  data  in 
the  .DAT  file  appears.  The  .DOC  files  are  in  text  format,  and  can  be  reviewed 
with  conventional  word-processing  programs  (the  files  were  prepared  with 
WordStar  2000).  Users  should  review  the  .DOC  file  for  special  advisories 
concerning  variable  defaults.  Variables  which  may  require  re-calculation 
prior  to  use  In  C0MPUT11  are  Kpm,  Kpd,  Kdl,  Kd2,  and  Kd3.  In  some 
situations,  their  recalculation  requires  data  in  an  .IDS  file  (  uch  as 


•“•••••••••••  OISPLAV-PRINT  UTILITY  MENU  ••••••••••••• 

Input  number  for  desired  printout 

Select  *1'  for  pathway  atatua 

Saiact  '2'  for  data  uaa  atatua  tabia  (OUST) 

Seiact  ’S'  for  valuaa  of  non-ehamical  data  from  .LOS  ni« 
Saiact  '41  for  valuaa  of  ehamlcal  data  from  .DAT  fit* 

Saiact  'S'  for  printout  of  variables  from  .LOS  and  .DAT  flies 
with  narrative  Identles  supplied. 

Select  'S'  to  quit  this  utility  and  return  to  ma In  menu. 
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4 . 657008E-04 

7 . 291 2 13E-05 
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1 .2202SSE-02 
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.0008 
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0 

125  4 

.001 

.01 

0 
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0 

130  « 

60 

.15 

.01 

100 

-1 

135  4 

.02 

0 

0 

0 

0 

Oats  Is  for  substance  Tr I n I troanyth 1 ng 

For  location,  read  down  side  for  multiple  of  5, 

then  across. 

Last 

down- loaded  file 

was  ...Sthemodil\dlskb\defalc.dat 

.  Data 

stored  In  . . . 

If  blank,  data  are  only  accessed  on-line. 
Hit  enter  (return)  to  continue. ... 


Figure  9.  Data  In  DEFALC.OAT 


fraction  organic  carbon  or  fraction  fat  In  meat).  These  recalculations  may  be 
carried  out  In  CHMPRP11  by  access  through  CHMFIL11.  Moreover,  some  specific 
“global"  calculations  can  be  carried  out  more  quickly  In  COMPUTU,  and  the 
reader  should  consult  Section  4.8  for  details. 

4.8  COMPUTll 

C0MPUT11  Is  accessed  from  0PEN11  by  responding  * 7 1  to  the  Main  Function 
Selection  Menu  (see  Figure  4).  The  module  starts  with  three  similarly-written 
routines  to  Identify  the  source  of  the  DUST,  non-chemical  data,  and  chemical 
data,  and  to  transfer  these  data  Into  COMPUTll.  First,  If  a  set  of  data  are 
stored  on-line,  you  have  the  option  to  use  that  set.  You  are  prompted: 

Enter  'yes'  or  ’no' 

Do  you  want  on-line  (pathway)  (non-chea  Input)  (chealcal  Input)  data? 

Respond  'yes'  to  use  the  on-line  data  set.  A  response  of  'no'  will  cause  a 
prompt:  *Do  you  aant  to  aee  (.PTH)  (.IDS)  (.DAT)  flies?'  A  'yes*  response  to  this  query  is 
followed  by  a  display  of  the  available  files.  Next,  you  are  prompted  to  enter 
a  filename.  After  the  designated  file  Is  down- loaded,  and  the  three  sequences 
are  completed,  the  next  display  Is: 

**************  HUMAN  TARGET  SELECTION  *************** 

Input  'V  la  an  adult  target  It  to  be  eelected 
Input  '2'  If  a  child  target  la  to  be  selected. 
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Select  *1*  or  '2'  as  appropriate.  This  selection  governs  whether  the  product 
BW  x  Dj  or  BWc  x  Dj  is  the  limiting  intake  that  determines  the  PPLV  (see 
equation  3  in  Section  2.0).  Following  this  display.  If  you  are  doing  a  soil 
PPLV  analysis,  there  are  two  computation  option  selections.  The  first  is  to 
set  Kdj«  koc  x  foc^  ,  where  koc  and  the  foe,  (i  ■  1  ,  2  or  3  )  are  from 
on-line  data.  After  the  prompt  display,  enter  '1,*  to  do  this,  otherwise, 
enter  '2'.  If  you  enter  '2,'  the  values  of  Kdl,  kd2,  and  kd3  currently  on¬ 
line  will  be  used.  The  next  option  is  to  compute  kpm  and  kpd  from  kpat  using 
the  relations  kpm  ■  kpat  x  fm  and  kpd  ■  kpat  x  fd  where  kpat,  fm,  and  fd 
are  supplied  from  on-line  data.  Procedures  follow  those  described  above  for 
kd. 

The  module  next  computes  the  input  equations  shown  in  Appendix  B  and  presents 
the  results  in  terms  of  environmental  medium  limits  (corresponding  to  SPIV  and 
PPLVs)  as  well  as  intakes.  The  display  showing  the  analysis  of  the  scenario 
of  file  S036AC.PTH  (the  sample  problem  from  Section  4.4)  with  the  down-loaded 
data  from  the  files  DEFALVA.LDS  and  DEFALC.DAT  appears  in  Figure  10. 

Three  sets  of  results  are  displayed.  The  unit  intake"  column  indicates  the 
mg/day  intake  of  pollutant  via  each  specific  pathway  resulting  from  1  mg/L  in 
water  or  1  mg/kg  in  soil.  These  values  are  the  Ri  discussed  in  Section  2.0. 
The  next  column  shows  the  SPLVs,  as  defined  by  equation  4  in  Section  2.0.  The 
final  column,  mv  intake",  is  the  mg/day  of  pollutant  intake  corresponding  to 
a  PPLV  concentration  in  water  or  soil.  The  sum  of  intakes  in  this  column  is 
the  "allonable  daily  intake"  ,  BW  x  Dj  or  BWc  x  Djc.  The  PPLV  is  computed  from 
equation  5  of  Section  2.0. 

Next,  the  module  displays  an  informative  "constraint  analysis"  description  and 
prompts  for  a  response  from  0  to  3.  The  entry  '0'  will  cause  control  to  pass 
back  to  0PEN11 .  The  entry  T  or  '3*  causes  the  Type  1  constraint  analysis 
routine  to  be  executed.  This  routine  tests  whether  the  pollutant 
concentration  indicated  by  the  PPLV  could  be  harmful  in  other  respects.  Based 
on  the  pathway  chosen,  these  effects  can  include: 

*  Organoleptic  effects  (color,  unpleasant  taste  or  odor)  in  water. 

*  Undesirable  effects,  such  as  death,  reduced  reproduction  or  toxic  effects 
to  aquatic  biota  species. 

*  Phytotoxic  impact  on  commercially  important  plants. 

*  Adverse  economic  impact  or  health  effects  to  livestock  or  dairy  cattle. 

As  the  selected  pathways  are  analyzed,  a  message  will  be  displayed  indicating 
the  constraint-limiting  concentration  followed  by  the  message: 

PPLV  OK  FOR  (specific  situation) 
or  the  message: 

Potential  constraint:  (adverse  effect). 

Pauses  are  inserted  to  allow  you  to  print  hard  copy.  Figure  11  shows  a 
portion  of  the  analysis  for  the  sample  problem.  Here,  livestock  effects 
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. . .  HUMAN  TARGET  SELECTION  ••••••••••••••• 

input  *1*  it  an  adult  target  la  to  ba  aalactad 
input  '2‘  la  a  child  target  la  to  ba  aalactad.  input:  1 
........  OPTION  TO  COMPUTE  KD  .  KOC  x  POC  ••••••••••• 

Thia  option  la  recommended  for  pre-packed  .OAT  fiiaa  where  the 
above  equation  la  a  raaaonabia  representation  of  toll  sorption. 

Input  '1‘  for  the  option,  *2'  to  continue  (existing  KD  values 
will  be  used) .  2 

.......  OPTION  TO  COMPUTE  Kpm  AND  Kpd  PROM  fm  AND  fd  •••• 

This  option  is  recommended  for  pre-packed  .DAT  files  where  the 
chemical  cone,  la  expected  to  depend  on  fat  content.  The  part, 
coefficients  are  Kpm  »  Kpat  x  fm  and  Kpd  •  Kpat  x  fd. 
input  ’I’  for  the  option,  ‘S'  to  continue  with  existing  on-line 
values.  2 


.............  ppLV  COMPUTATIONS 

SUBSTANCE  NAME  IS  Tr I n I troanyth I ng 


PATH 


Eat  Vegetables 
Eat  Beef  (P.S+W] 

Norm.  Sol  I /Oust 
Diffusing  vapor /inside 


UNIT  INTAKE 
mg/day  per 
mg/kg 
2.719E-02 
8.398E-0S 
7 . 400E-05 
8 . 463E-03 


SPLV 

mg/kg 

2.57SE.OO 
8 . 33SE.02 
9 . 4S9E.02 
1 . 083E+01 


PPLV  IS  2 . 070E.00  mg/kg 

allowable  daily  intake  is  .07  mg/day 

Hit  enter  (return)  to  continue.... 


PPLV  INTAKE 
mg/day  at  PPLV 

S.829E-02 
1 .739E-04 
1  .  S32E-04 
1 .338E-02 


Figure  10.  PPLV  Analysis  for  Sample  Problem 


may  pose  a  potential  constraint,  since  the  PPLV  of  2.07  mg/kg  Is  ten  times 
higher  than  the  computed  "critical  concentration"  of  0.206  mg/kg. 

The  type  2  constraint  analysis  occurs  either  at  the  end  of  a  type  1  constraint 
analysis  when  option  '3'  Is  selected  or  when  option  ’2’  Is  selected.  It  is 
announced  by  the  line: 

***************  TYPE  2  CONSTRAINT  ANALYSIS  •••••••*••*•*•* 


The  analysis  continues  automatically.  If  the  medium  selected  is  water,  the 
analysis  returns  one  of  two  messages: 

PPLV  not  subject  to  Type  2  constraint 
or 

PPLV  exoeeds  eolifclllty  Halt.  Type  2  constraint  exists. 

Criteria  levels  In  excess  of  the  PPLV  «y  be  Justified. 

The  module  returns  control  to  0PEN11.  If  the  medium  selected  Is  soil,  each 
pathway  In  the  scenario  is  tested,  and  a  status  message  Is  displayed: 

Path  (description)  type  2  constraint  status  -  (yes  or  no) 

An  example  appears  In  Figure  12,  which  is  for  the  sample  problem.  After  the 
tests,  one  of  two  summary  messages  will  be  displayed: 
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You  can  choose  ona  of  four  options.  Cntor  "O'  to  do  no  analyses. 
Enter  ‘1*  to  do  ONLY  a  Type  1  analysis.  Enter  *2*  for  ONLY  a  Type  2 
analysis.  Enter  *3‘  to  do  BOTH  analyses. 

Enter  your  selection  here:  3 

•■••••••••■•••••••a  CONSTRAINT  ANALYSIS  •••••••••••••••••••• 

TYPE  1  CONSTRAINT.  For  reference.  PPLV  -  2.070448  mg/kg 
Test  for  soil  pathway  e  3  Eat  Vegatablea 
TEST  based  on  Phytotoxic  limit  in  hydroponic  solution,  mg/L 
CRITICAL  CONC.  •  2007.143  mg/kg 

PPLV  OK  FOR  PLANTS (baaed  on  water  data) 

Hit  enter  (return)  to  continue.... 

Test  for  soil  pathway  e  6Eat  Beef  tP«S«M] 

TEST  baaed  on  Acceptable  limit  dose  to  cattle,  mg/kg-day 
CRITICAL  CONC.  -  .2086387  mg/kg 

POTENTIAL  CONSTRAINT: 1 1 veatock  adverse  effects 
Hit  enter  (return)  to  continue.... 

TEST  based  on  Phytotoxic  limit  In  hydroponic  solution,  mg/L 
;  CRITICAL  CONC.  -  2007.143  mg/kg 

'  PPLV  OK  FOR  PLANTS(based  on  water  data) 

Hit  enter  (return)  to  continue.... 

i  N®  Type  1  constraints  for  soil  pathway  e  10  Norm.  Soil/Dust 

j  No  Type  1  constraints  for  soil  pathway  e  10  Norm.  Soil/Dust 

No  Type  1  constraints  for  soil  pathway  e  10  Norm.  Sol  I /Oust 

No  Type  1  constraints  for  soil  pathway  e  12  Diffusing  vapor/inslde 

No  Type  1  constraints  for  soli  pathway  #  12  Diffusing  vapor/inslde 

No  Type  1  constraints  for  soil  pathway  e  12  Diffusing  vapor/inslde 

•••••NOTE****  If  no  test  messages  were  displayed  concerning 
Type  1  Constraint,  no  soli  pathways  other  than  pathways  10 
through  13  were  Included  In  the  scenario. 

End  Type  1  Constraint  Analysis 
Hit  enter  (return)  to  continue.... 


Figure  11.  Part  of  the  Type  1  Constraint  Analysis,  Sample  Problem 


Type  2  constraint  flagged,  PPLV  adjustaent  attested, 
or 

Solit)ll  Ity  «l  1 1  not  pose  a  type  2  constraint. 

In  the  latter  case,  control  transfers  to  0PEN11.  If  there  Is  a  Type  2 
constraint,  a  routine  Is  automatically  executed  to  compute  a  soil  limit  higher 
than  the  PPLV  which  meets  the  consumption  constraint  used  to  compute  the  PPLV 
(for  more  details,  see  Small2  or  Section  A. 7.3  in  Appendix  A). 

If  no  PPLV  adjustment  can  be  done,  the  message  "PPLV  say  not  be  applicable.  Systea  totally 
constrained.*  will  appear,  and  control  Is  returned  to  0PEN11.  If  there  is  an 
adjustment,  the  message  "Adjusted  PPLV  is  (ruber)  ag/kg.*  will  appear.  Since  a  higher 
soil  limit  may  trigger  additional  type  2  constraints,  this  procedure  Is 
repeated  until  no  further  upwards  adjustment  of  the  PPLV  can  occur.  At  this 
point,  the  message  *No  further  adjustaent  needed.  Analysis  over.*  will  appear.  The  module 
then  returns  control  to  0PEN11. 

At  the  conclusion  of  a  C0MPUT11  session,  the  Information  used  In  the  analysis 
will  be  In  on-line  storage.  It  can  be  viewed  in  OPENU  (see  Sections  4.5.3, 
4.6.3,  and  4.7.3).  You  can  go  to  CHMFIL11  or  INPUTS11  to  modify  chemical  or 
non-chemical  data  for  "what-lf"  type  analyses.  If  you  had  entered  ’1*  for 
either  the  -OPTION  TO  CdfUTE  H)  •  KOC  x  FOC*  or  the  “OPTION  to  cospute  Kpa  AM)  Kpd  FROM  fa  AM) 
fd*,  the  values  computed  by  the  selected  options  will  be  placed  In  on-line 
storage,  replacing  those  that  were  in  on-line  storage  at  the  start  of  C0MPUT11 
execution. 
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TYPE  2  CONSTRAINT  ANALYSIS 


For  roforonco,  tutor  solubility,  mg/L  (SN)  »  .3 

FPLV  «  2.070448 

Patft  Eat  voootabioa  typo  2  constraint  status  •  no 

Path  Eat  Boof  [P*s+W]  typo  2  constraint  status  •  no 

Path  Norm.  Soli/Oust  typo  2  constraint  status  •  no 

Path  Diffusing  vapor /Ins  Ido  typo  2  constraint  status  •  yos 

Path  typo  2  constraint  status  «  no 

Path  typo  2  constraint  status  «  no 

Path  typo  2  constraint  status  -  no 

•••••NOTE** •••Expoet  non-doflnod  pathways  If  pathways  6  or  8  or  8  or  9 
were  In  scenario. 

Hit  ontor  (return)  to  continue.... 

Typo  2  constraint  flagged,  PPLV  adjustment  attempted 
Adjusted  PPLV  is  2.338205  mg/kg. 

Now  chocking  to  see  If  further  adjustment  Is  needed 
Path  Eat  Vegetables  type  2  constraint  status  -  no 
Path  Eat  Beef  (P«S«W]  type  2  constraint  status  -  no 
Path  Norm.  Sol  I /Oust  type  2  constraint  status  »  no 
Path  Diffusing  vapor/lnslde  type  2  constraint  status  »  yes 
Path  type  2  constraint  status  -  no 

Path  type  2  constraint  status  -  no 

Path  type  2  constraint  status  »  no 

•••••NOTE»*»*»Expect  non-deflned  pathways  If  pathways  5  or  6  or  8  or  9 
were  in  scenario. 

Hit  enter  (return)  to  continue. _ 

Type  2  constraint  fl-gged,  PPLV  adjustment  attempted 
Adjusted  PPLV  l'.  :.338205  mg/kg. 

Now  checking  to  s-o  If  further  adjustment  Is  needed 
No  further  #  ; j>  '.ment  needed.  Analysis  over. 

READY  TO  RETUF.N  TO  OPEN11 

Hit  enter  (return)  to  continue.... 


Figure  12.  The  Type  2  Constraint  Analysis  for  the  Sample  Problem 


4.9  The  Sample  Problem 

The  sample  problem  was  stated  In  Section  4.4.  The  compound  "trlnltroanythlng" 
was  In  soil  at  a  site  at  concentrations  as  high  as  2  mg/kg.  The  existing  life¬ 
style  scenario  was  processed  In  PATWAY11  and  stored  In  the  file  S036AC . PTH 
(Figures  5  and  6).  Intake  and  area  conditions  were  expressed  by  the  data  In 
DEFALVA.LDS  (Figure  7).  Specific  Information  for  “trlnltroanythlng"  was  In  the 
file  DEFALC.DAT  (Figure  9). 

The  PPLV  analysis  (Figure  10)  Indicated  that,  based  on  an  allowable  Intake  of 
0.07  mg/day  (the  Dj  of  "trlnltroanythlng"  Is  0.001  mg/kg-day;  the  target  human 
weighs  70  kg),  the  PPLV  Is  2.07  mg/kg.  However,  the  Type  2  constraint  analysis 
Indicates  this  may  be  conservative,  since  water  solubility  limits  the 
contribution  that  the  soil-diffusion  pathway  can  make  to  "trlnltroanythlng" 
Intake.  Adjusting  for  this  limitation,  the  0.07  mg/day  Intake  would  be 
attained  with  a  soil  level  of  2.34  mg/kg.  However,  cattle  may  experience 
adverse  effects  at  a  0.21  mg/kg  soil  level  (Figure  11).  Since  cattle  have  been 
exposed  to  "trlnltroanythlng"  at  the  site  for  some  time,  as  a  minimum,  the 
adverse  health  effects  or  economic  Impacts  to  animals  at  the  site  should  be 
addressed.  If  the  constraint  analysis  predictions  are  validated,  some  type  of 
remedial  action  would  be  warranted. 
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5.0  CHMPRP11 

The  CHHPRP11  module  In  PHAS  has  24  subroutines,  of  which  14  contain  both 
information  messages  and  estimation  methods.  The  other  10  contain  only 
information  messages.  CHMPRP11  can  be  accessed  from  CKMFIL11  (see  section 
4.7.1)  or  from  0PEN11  on  an  "a  la  carte"  basis.  Section  5.1  describes  the 
interfaces  between  CHMPRPU  and  CHMFIL11  or  0PEN11,  while  Section  5.2 
describes  specific  estimation  subroutines.  The  selection  of  CHMPRPll 
estimation  methods  was  based  upon  wide  applicability  and  minimal  input 
requirements.  Many  have  been  adapted  from  Lyman  et  al.°,  which  can  be 
consulted  for  other  estimation  methods. 

5.1  Running  CHMPRPll 

CHMPRPll  is  accessed  either  directly  from  0PEN11  by  entering  '9‘  when  prompted 
by  the  "MAIN  FUNCTION  SELECTION  MENU"  or  from  CHMFILU  by  entering  *3'  when 
prompted  in  CHMFILll's  DATA  REVIEW  AND  ICOIFICATION  ROUTINES*. 

The  initial  CHMPRPll  displays  differ,  depending  on  the  accession  mode.  When 
it  is  accessed  from  0PEN11,  the  selection  menu  display  (Figure  13)  appears. 

The  property  subroutine  desired  is  selected  by  entering  the  specified 
designation  number.  Subroutine  selections  marked  with  an  asterisk  only 
provide  a  descriptive  information  message  (for  example,  see  "Mol  Weight"  in 
Figure  13).  In  the  execution  of  any  subroutine,  an  information  message  is 
first  displayed.  After  you  exit  an  description-only  subroutine,  you  encounter 
the  exit  prompt: 

Answer  'yes'  or  'no' 

Rich  to  Do  More? 

A  'yes'  response  sends  you  back  to  the  selection  menu  shown  in  Figure  13,  a 
'no1  response  sends  you  back  to  0PEN11.  In  subroutine  with  an  estimation 
method,  the  information  message  is  followed  by  a  method  selection  menu.  Most 
data  inputs  are  manual.  At  the  conclusion  of  the  selections  and  the  display 
of  results,  the  above  exit  prompt  is  encountered.  If  you  answer  'yes',  you 
return  to  the  selection  menu  shown  in  Figure  13;  if  you  answer  'no1,  you  exit 
back  to  OPENU. 

When  CHMPRPll  is  called  from  CHMFILll,  the  CHMPRPll  subroutine  corresponding 
to  the  variable  being  processed  is  accessed;  Figure  13  is  not  displayed.  In 
most  estimation  method  subroutines,  the  data  in  on-line  storage  is  accessed, 
so  manual  data  inputs  are  minimal.  At  the  end  of  each  subroutine,  you 
encounter  the  exit  prompt  shown  above.  However,  a  'yes'  input  sends  you  back 
to  the  subroutine’s  information  message.  This  feature  is  useful  if  you  wish 
to  see  the  estimates  provided  by  different  methods.  With  a  'no'  response, 
control  reverts  back  to  CHMFILll. 

The  order  of  CHMPRPll  subroutines  presented  in  Figure  13  is  based  on  a 
hierarchy  of  information  needs.  Thus,  the  subroutines  dealing  with  molecular 
weight  and  log  kow  precede  those  for  which  their  use  is  required,  keep  this 
in  mind  when  deciding  which  calculation  routines  to  attempt.  In  estimation 
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WELCOME  TO  THE  CHEMICAL  PROPERTIES  ESTIMATION  MODULE 


.  . . .  here  is  a  listing  or  properties  estimated  ••••• 

Check  your  user's  guide  since  you  My  need  s  property  In  the 
estimation  process  which  must  be  first  estimated. 


1  -  Mol  W«ight(a)  2  -  Melting  polnt(a)  3 
4  >  Log  Kow(a)  ft  a  water  solubility  6  •  Sat 

10  •  Koc  11  a  Ksp(sol l /plant) 

13  a  Reference  foes  for  Ksp  and  Ksv(a) 

15  >  BCF  for  fish  16  •  Kwv (water /veg) 

16  •  Kpat  (fat/plant) 

20  •  Kpd  (plant/ml  Ik) 


22  a  Da  (air  dlffuslvlty) 

24  a  Dermal  permeab I  I  I ty( a ) 
26  -  0Tc(a) 

28  -  Aquatic  tok  llmlt(a) 

30  •  Phytoklclty  I lmlt(a) 


Bolling  point 

vapor  pressure 
12  a  Ksv( so  1 1 /veg) 

17  a  Kwp(sol l/plant) 

19  a  Kpm(plant/meat ) 

21  -  Kh  (Henry  Law) 

23  -  Kd  (sol l /water) 

26  -  DT(a) 

27  a  Organolept.  Ilmlt(a) 
29  •  Cattle  tok  limit 

31  a  Exit  to  0PEN11  now 


An  asterisk  (a)  Indicates  a  VERBAL  description  only,  no  calculations. 


Input  the  number  of  your  selection: 


Figure  13.  Selection  Menu  Display  of  CHMPRP11 


method  subroutines,  the  data  input  requirements  are  displayed.  You  have  the 
option  not  to  do  a  calculation;  this  Is  useful  if  you  wish  to  review  the 
methods  or  find  that  your  Input  data  base  is  not  complete.  In  that  case,  you 
are  returned  to  the  exit  prompt.  Each  calculation  option  prompts  you  for 
data.  These  options  are  described  in  Section  5.2.  Each  computation  concludes 
with  a  display  of  input  data  and  the  result. 

The  subroutines  for  Kpm  and  ICpd  (see  Sections  5.2.9  and  5.2.10)  have 
estimation  methods  requiring  use  of  the  site-specific  variables  fat  fractions 
in  beef  and  dairy  (fm  and  fd).  The  estimation  methods  for  Kd  (see  Section 
5.2.13)  require  site-specific  fraction  of  soil  organic  carbon  (foe)  data. 
Options  are  provided  to  obtain  these  data  from  a  .LDS  file.  If  a  .IDS  file  is 
down-loaded  in  CHMPRP11,  regardless  of  whether  entry  was  from  CHMFIL11  or 
0PEN11,  Its  contents  stay  in  on-line  storage  until  another  .LDS  file  1$  down¬ 
loaded. 

5.2  CHMPRP11  Estimation  Subroutines 
5.2.1  Bolling  Point 

Two  methods  are  presented.  The  first  Is  an  Inverse  form  of  the  Lorenz  and 
Herz  correlation  to  predict  the  melting  point  from  the  boiling  point,  which 
was  presented  by  Gold  and  Ogle7.  It  is  not  recommended  for  aldehydes, 
alcohols,  and  polar  hydrocarbons.  The  second  method,  developed  by  Miller,  is 
discussed  In  Section  12-5  of  Lyman  et  al.  .  It  requires  knowledge  of  a 
substance's  structure  In  terms  of  the  specific  fragments  Indicated  in  Figure 
14.  Figure  14  also  shows  the  fragments  presentation  tableau  (both  the 
Instructions  and  tableau  are  displayed  In  CHMPRP11).  This  tableau  follows  the 
order  of  Table  12-12  in  Lyman  et  al.  . 
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The  CRT  will  display  41  dlffarant  structura  fragments  In  a  table. 
you  will  be  prompted  to  enter  the  Identification  number  for  a  given 
fragment  (FIN)  of  the  subject  pollutant  and  then  the  number  of  times  that 
fragment  occurs  In  the  pollutant  molecule.  Your  entry  will  be  echoed  back. 
You  will  be  queried  If  you  wish  to  do  more.  If  you  select  yea.  the  table 
will  re-dlsplay  with  the  previous  selection  posted.  This  sequence  Is 
repeated  until  you  respond  'no'  to  the  'Do  you  want  to  do  more?'  query. 


in  the  table,  there  are  coded  abbreviations.  'NR'  Indicates  a  non- 
ring  structure,  ‘RQ‘  a  ring.  Rings  can  be  either  aliphatic  or  aromatic. 

Other  abbreviations  are  alc>aicohot,  phUphenoi.  aid-  aldehyde,  eat-ester. 

The  triple  bond  (see  FIN9  and  FIN10)  appears  as  •— '.  As  examples  of  Input, 
dlnitrophenol  would  appear  as  3FIN14  (-CH-  In  a  ring),  3FIN16  <»C«  In  a  ring) 
1FIN22  (phenolic  OH),  and  2FIN37  (nitro  groups).  The  compound  DBCP 
:  1 .2-dlbromo-3-chloropropane  or  CH2Br-CHBr-CH2C I  appear  as  2FIN2 

I  (-CH2-  non-ring).  1FIN3  (-CH«  non-ring).  2FIN19  (bromine),  and  1FIN18 
(chlorine).  Entries  need  not  be  made  In  FIN  order. 

I 

!  Enter  'yes'  or  'no*. 

Do  you  wish  to  continue  analysis?  yes 


OF  INI  -CH3  (NR  J 
OFIN5  -CH2  (NR) 
OFIN9  — CH  (NR) 

OF  I N 1 3  »C«  (RG) 
0FIN1"  -F 
0FIN21  -OH  ale 
0FIN2S  >C-0  (NG) 
OFIN29  -COO-  est 
0FIN33  >NH  (RG) 
OFIN37  -N02 
OFIN41  -S 


MILLER  BOILING  POINT  METHOD  FRAGMENTS  ID  TABLE 


0FIN2  -CH2-(NR) 
0FIN6  -CH-  (NR) 
0FIN10  --C-  (NR) 
OF  I N 1 4  -CH-  (RG) 
OF  I N 1 8  -Cl 
OFIN22  -OH  phi 
0FIN26  »C-0  (RG) 
OFIN30  -O  Other 
0FIN34  >N-  (NR) 
0FIN38  -SH 


0FIN3  -CH«  (NR) 
0FIN7  -C«  (NR) 

OF  IN1 1  -CH2-  (RG) 
OF  INIS  -C«  (RG) 
OF  I N 1 9  -Br 
0FIN23  -O-  (NR) 
0FIN27  -CH-O  aid 
0FIN31  — NH2 
0FIN35  >N-  (RG) 
OFIN39  -S-  (NR) 


0FIN4  »C«  (NR) 
0FIN8  -C-  (NR) 

OF  INI 2  — CH«  (RG) 
OF  I N 1 6  -C-  (RG) 
0FIN20  -I 
0FIN24  -O-  (RG) 
OFIN28  -COOH  acid 
OFIN32  »NH  (NR) 

OF IN3B  -CN 
OF  I N40  -S-  (RG) 


When  prompted,  enter  FIN.  Enter  number  of  units  next 
Enter  FIN  (from  1  to  41)  here:  2 


Enter  number  of  specified  fragments  In  molecule.  8 


i 

I 

I 

I 


Figure  14.  Miller  Boiling  Point  Method  Displays:  Information  and  Tableau. 


The  subroutine  prompts  for  a  fragment  identifier  number  (FIN)  and  the  number 
of  times  the  identified  fragment  occurs  in  the  pollutant  molecule.  After 
entry  of  these  data,  the  tableau  display  is  revised  to  show  the  input.  After 
this  •roll-over",  the  message  Uo  you  want  to  do  we?*  is  displayed.  Until  there 
is  a  ’no'  response,  the  subroutine  continues  to  query  for  a  FIN  and  the  number 
of  fragments.  You  continue  making  entries  until  you  are  through  (you  can  also 
correct  errors,  and  replace  a  non-zero  value  with  zero).  The  routine 
determines  and  displays  the  molecular  weight  from  your  inputs.  If  you  entered 
CHMPRP11  from  CHMFIL11,  the  molecular  weight  in  on-line  storage  is  also 
displayed.  If  considerable  error  exists  between  them  (other  than  round-off 
errors;  in  routine  computations,  weights  are  to  the  nearest  0.1  units),  either 
the  tableau  entries  or  the  molecular  weight  in  the  on-line  data  set  are 
incorrect. 

5.2.2  Water  Solubility 

Four  equations  are  Included  in  this  subroutine.  If  you  enter  CHMPRP11  from 
CHMFIL11 ,  the  only  Inputs  requested  are  equation  selections.  The  equations 
are  octanol-water  partition  coefficient-based  correlations,  and  have  been 
presented  in  Lyman  et  al.  .  Equations  2.2  and  2.15  from  Lyman  et  al. 
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compute  a  molar  water  solubility,  thus  molecular  weight  data  Is  required  to 
convert  to  a  mg/L  basis.  Equation  2.15  is  presented  In  two  formats;  one 
Includes  a  melting  point  correction  term,  which  Is  claimed  to  be  somewhat  more 
accurate  for  substances  that  are  solids  above  25  °C8.  If  you  choose  this 
option,  you  are  prompted  for  a  melting  point  In  °C.  If  you  enter  a  melting 
point  below  25°C,  the  Input  Is  Ignored. 

5.2.3  Vapor  Pressure 

Five  computation  options  are  provided  for  vapor  pressure;  they  are  summarized 
in  an  information  message  (Figure  15).  Before  you  select  an  option,  you  are 
queried: 


Enter  teaperature  in  DegC  for  calculation  result: 

Enter  the  temperature  applicable  to  the  PPLV  analysis  (usually  25  °C).  The 
options  are  discussed  below.  Where  vapor  pressure  inputs  are  required,  they 
are  understood  to  be  In  mm  Hg  or  torr. 

Mackav's  method  #1.  This  was  presented  in  Mai  Ion,  et  al8.  If  CHMPRP11  is 
entered  from  0PEN11,  you  are  queried  for  melting  point  and  boiling  point  in 
°C.  The  answer  is  then  displayed.  If  you  enter  CHMPRP11  from  CHMFIL11,  the 
on-line  melting  point  and  boiling  point  data  are  accessed,  and  the  answer 
displayed. 

Watson's  boiling  point  method.  This  is  described  in  Lyman  et  al.8,  sections 
14-3  and  14-4.  If  CHMPRP11  Is  entered  from  0PEN11,  you  are  queried  for 
boiling  point  in  °C.  Then  you  are  queried  for  the  substance's  physical  state 
at  the  calculation  temperature: 

Is  substance  a  liquid  at  calculation  top? 

Respond  "yes''  for  a  liquid,  -no"  for  a  solid.  A  message  followed  by  a  list 
identifying  types  of  compounds  is  displayed  (Figure  16).  From  this  list,  you 
select  the  identification  number  for  the  type  of  compound  that  best  describes 
the  substance  considered.  A  value  of  Kps  corresponding  to  the  identification 
number  Is  used  to  evaluate  equation  14-16  from  Lyman  et  al.  The  result 
display  shows  the  boiling  point,  the  state  of  the  substance,  and  the  vapor 
pressure. 

If  entry  is  from  CHMFIL11,  the  on-line  stored  boiling  point  is  accessed,  and 
the  program  automatically  determines  whether  the  substance  is  solid  or  liquid. 
Here,  the  first  query  by  the  subroutine  is  the  identification  number  from 
Figure  16.  Execution  follows  as  noted  above. 

Simple  Interpolation.  This  is  based  on  the  Clausius-Clapeyron  equation,  which 
states  that,  within  a  short  range  of  temperature,  log  P  «  T"1  ,  where  T  Is 
In  degrees  Kelvin.  The  subroutine  requests  two  sets  of  temp  ratures  and 
pressures  are  requested,  first  for  the  lower  end  of  the  range,  and  next  for 

*  The  Kp  values  are  In  Lyman  et  al.8  Table  14-4.  The  values  used  here 
correspond  to  the  six-carbon  column  In  that  table. 
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...............  VAPOR  PRESSURE  METHOD  SELECTION  MENU  . . 

Select  ‘O'  to  ex  1 1  without  estimation 

Select  '1'  for  Mackey's  Method  el  for  both  liquid  and  aoilds.  if  you're 
here  from  OPEN11,  you  muat  Input  Tine  it  and  Tboll. 

Select  '2'  for  Watson's  boiling  point  method  for  both  liquids  and  solids. 

If  you're  here  from  OPEN11,  you  must  Input  the  liquid  boiling  point  and 
the  atate  of  the  substance  (liquid  or  solid)  at  ambient  conditions. 

Select  '3'  for  simple  Interpolation.  You  enter  two  data  pair  sets  of 

saturation  vapor  pressure/  temperature.  The  sets  must  be  for  either 
the  solid  or  liquid  state,  but  not  one  of  each.  If  you're  here  from 
OPEN) 1 ,  and  your  data  pair  sets  are  for  the  liquid  state,  but  you  want 
a  solid  state  VP,  you  will  be  prompted  for  Tmeit.  You  can't  estimate 
a  liquid-state  VP  by  thia  method  from  aoild  state  data. 

Select  ‘4‘  for  Mackay's  Method  modified  for  input  of  only  the  melting  point. 
Tboll  Is  approximated  Internally.  This  is  the  least  accurate  of  the 
methods.  No  additional  Inputs  are  needed  If  you're  here  from  CtMFiLli. 

Select  ' 6 '  for  Watson's  reduced  pressure  method.  This  Is  similar  to 

selection  '2'  above  but  uses  a  paired  reduced  pressure  and  temperature 
input  In  place  of  the  boiling  point. 

Enter  your  selection  (from  0  to  5): 


Figure  15.  Vapor  Pressure  Estimation  Method  Selection  Menu. 


Enter  temperature  In  OegC  for  calculation  result;  27 
Enter  boiling  point  In  OegC:  444 
Enter  'yes'  or  'no'. 

is  substance  a  liquid  at  calculation  tamp7  yes 

You  will  be  shown  a  table  of  general  compound  groups.  Choose  the 
number  of  the  structure  best  describing  your  compound.  For  mixed 
aromatic  constituents,  -OH  takes  precedence.  For  simple  aromatics 
consider  the  phenyl  group  as  a  n-Alkane  (selection  el). 

Press  enter  (return)  key  to  continue.... 


1 . 

4. 

e. 

9. 

1 1 
14 
17 


'•••  table  OF  STRUCTURE  IDENTIFICATION  FACTORS  FOR  VP  ESTIMATIONS  •••••' 
'*•  Aliphatic  and  Carbocycilc/  Heterocyclic  Onps.  with  Aliphatic  Props. 
n-Aikanes  2.  other  alkanes  3.  Olefins 

Cyclic  sat.  hydrocarbs  6.  Alkylated  cyclic  sat.  hydrocarbs 
Monochloride  7.  Monobromide  8.  Mono  iodide 

Polyhailde  (not  entirely  haiogenated)  10.  Totally  halogenated  cpd. 


Per  f l uorocarbon 
Aldehyde 
Tertiary  amine 
20.  Mercaptans 
22.  Alcohol (a I ng le  OH) 


13.  Ketone 

18.  Secondary  amine 

19.  Nltro  compound 


25. 

26. 


12.  Ester  (R-COO-R') 

15.  Primary  amine 
18.  Nitrile 
21 .  Sul f Ides 

23.  Olols  24.  Trlols 

Cyclohexanoi ,  cyclohexyl  methyl  alcohol,  etc. 

Aliphatic  ethers  27.  Oxides  (cyclic  ethers) 

Aromatic  Compounds  (use  phenol  values  If  mixed  function  on  ring) 


27.  Monophenols 
29.  Monoani I Ine 
31.  N-sub.  anilines  (C6HSNHR) 

33.  Naphthy (amines  (one  -NH2) 

35.  ANY  OTHER  C0MP0UN0(0efau I t  value) 
Enter  Identification  number: 


26.  Other  phenols(2  or  more  -OH) 
30.  Other  anliine(2  or  more  -NH2) 
32.  Naphthois  (one  -OH) 

34.  N-Substltued  naphthy I  amines 


Figure  16.  Watson  Boiling  Point  Structure  Display. 
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the  upper  end  of  the  range.  The  routine  next  queries: 


Enter  'V  if  sUxtance  Is  liquid  at  calc,  too  l  In  range. 

Enter  '2'  If  mtetance  Is  solid  at  calc.  tem>  but  liquid  In  range. 

Enter  '3'  If  adxtance  Is  solid  at  calc,  teap  l  In  range. 

Provide  the  entry  for  your  compound  and  calculation  temperature  situation. 

The  vapor  pressure  Is  computed  directly  if  '1*  or  '3'  Is  your  response.  If 
your  response  Is  '2',  you  are  queried  for  a  melting  point  in  °C.  In  this 
case,  the  vapor  pressure  initially  computed  is  that  of  a  "supercooled  liquid". 
This  Is  converted  to  a  solid  vapor  pressure  by  equation  14-10  of  Lyman  et 
al.  .  This  method  is  most  accurate  when  the  calculation  temperature  is  Inside 
the  range.  In  case  of  an  extrapolation  of  more  than  about  25  °C  outside  of 
the  range,  Watson's  reduced  pressure  method  (see  below)  may  be  more  accurate, 
and  only  requires  one  data  set. 

Mackav's  method  (modified).  This  method  uses  the  Lorenz  and  Herz  equation 
(see  Section  5.2.1)  to  estimate  the  boiling  point  from  the  melting  point. 

Then,  the  melting  point  and  estimated  boiling  point  are  entered  into  Mackay's 
Method  #1.  You  are  prompted  to  enter  the  melting  point  if  entry  is  from 
0PEN11;  otherwise,  the  melting  point  In  on-line  storage  is  accessed. 

Watson's  reduced  pressure  method.  This  routine  is  based  on  equations  14-24 
and  14-26  in  Lyman  et  al.b. However ,  in  place  of  the  boiling  point  at  1 
atmosphere  pressure,  a  paired  set  of  vapor  pressure-temperature  data  are 
entered.  Generally,  the  vapor  pressure  used  is  below  1  atmosphere,  hence  the 
name  "reduced  pressure".  You  supply  the  reference  temperature  and  pressure  at 
the  prompts: 

Enter  reference  temperature  for  reduoed  pressure: 

Enter  VP  at  reference  temperature: 

If  you  entered  CHMPRP11  from  0PEN11,  you  are  asked  *ls  oixtance  a  liquid  at  calculation 
state?”  to  which  you  provide  a  "yes"  (for  liquid)  or  "no"  (for  solid)  response. 
The  the  display  in  Figure  16  appears  next,  and  after  you  select  the 
Identification  number,  the  conditions  of  the  problem  and  estimated  vapor 
pressure  are  displayed. 

5.2.4  Koc 

This  subroutine  provides  7  different  correlation  equations;  they  are 
identified  In  the  system  display  shown  In  Figure  17.  If  you  enter  CHMPRP11 
from  0PEN11,  you  are  queried  to  supply  the  requisite  data,  after  which  the 
estimated  ICoc  Is  displayed.  If  you  enter  CHMPRP11  from  CHMFIL11,  no  Inputs 
are  required  after  selection  of  the  correlation  equation. 

5.2.5  Ksp  and  Ksv 

Although  each  variable  has  a  separate  entry  value  when  CHMPRP11  Is  entered 
from  0PEN11,  one  subroutine  processes  both  of  them.  One  estimation  method  is 
used,  which  was  proposed  by  Travis  and  Arms9  for  "vegetation": 
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. . .  INFORMATION  on  •••••••••••••••••••• 

Soil  organic  carbon  to  watar  partition  coefficient.  L  water/kg  oc  (Koc) 

'*  th?  rat,°  **>•  *qul librium  pollutant  concantrat Ion 

. .  carbon  (SOC)  and  tha  concantrat Ion  In  water.  Koc  Indicates 

tnZt  ooMutU  VV?"  °*  pol‘utant  *>at«ean  aoll  and  watar  assuming 

that  pollutant  In  aoll  la  primarily  physically  adsorbed  on  SO 

Kd*  8*1^1  no!!t  »•  the  fraction  of  SOC  In  aoll. 

P  1  *  LV  •«u*tlon*  •«<!  to  constraint  testa  where  water- 

oasad  data  are  used  for  comparison  to  soil  results. 
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Figure  17.  Koc  Estimation  Method  Selection  Menu 


log  Ksp  >  1.588  -  0.578  x  log  Kow 

If  you  entered  CHMPRP11  from  0PEN11,  you  are  prompted  to  enter  a  value  of 
log  Kow  ;  otherwise,  no  Input  Is  required. 

5.2.6  BCF 

Three  estimation  options  are  presented,  corresponding  to  equations  5-2,  5-3 
and  5-4  in  Table  5-1  of  Lyman,  et  al.°.  These  equations  respectively  require 
an  Input  of  log  Kow,  water  solubility  or  Koc,  and  after  you  select  the 
equation  option.  If  you  enter  CHMPRP11  from  OPENU,  the  applicable  variable  is 
requested.  Otherwise,  you  supply  no  additional  Input. 

5.2.7  Kwv  and  Kwp 

Similar  to  Ksv  and  Ksp  ,  these  variables  are  handled  in  one  subroutine. 

Option  1  uses  the  "modified*  Briggs  equation2: 

Kwv  or  Kwp  ■  5  x  (  0.82  ♦  10^  )  x  10^2 
where 

El  ■  0.95  x  log  Kow  -  2.05 

E2  «  -0.178  x  (  log  Kow  -  1.78  )2 

You  are  prompted  to  enter  log  Kow  if  you  enter  CHMPRP11  from  0PEN11.  Options 
2  and  3  compute  either  variable  from  a  Ksp  or  Ksv  Input,  respectively.  If  you 
have  entered  CHMPRP11  from  0PEN11,  Ksp  or  Ksv,  a  reference  foe  (that  of  the 
soil  used  In  studies  to  determine  Ksp  or  Ksv),  and  a  Koc  are  requested. 

Option  4  only  applies  If  you  have  entered  CHMPRP11  from  CHMFIL11,  and  equates 
Kwp  to  the  current  value  of  Kwv.  The  reverse  can't  be  done  directly  in  PHAS 
(there  really  Is  no  clear-cut  preference  of  Kwv  over  Kwp;  this  sequence 
selection  is  judgmental). 
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5.2.8  Kpat 

Two  methods  are  Included,  both  from  Garten  and  Trebalka10.  If  you  enter 
CHMPRP11  from  CHMFIL11,  no  Inputs  are  needed  other  than  the  choice  of  method. 
Otherwise,  log  Row  is  requested  for  the  first  selected  method;  water 
solubility  is  requested  for  the  other. 

5.2.9  Kpm 

Six  options  are  available  for  estimating  Kpm.  The  first  three  options  use 
Kpat  as  a  starting  point,  and  use  the  relation:  Kpm  ■  Kpat  x  fm  .  The  last 
three  options  use  Kpd  as  a  starting  point,  and  use  the  relation: 

Kpm  ■  Kpd  x  fm  /  fd  .  Options  1  through  3  require  Kpat  input  if  you  enter 
CHMPRP11  from  0PEN11.  Options  4  through  6  require  Kpd  input  if  you  enter 
CHMPRP11  from  0PEN11.  Options  1  and  4  employ  a  default  fm  (  fra  ■  0.25  )  and 
a  default  fd  (  fd  ■  0.04  ).  Options  2  and  5  employ  fm  and  fd  information  that 
must  be  down-loaded  from  an  .LOS  file;  if  either  of  these  options  is  selected, 
you  first  review  the  stored  .LOS  files  and  are  prompted  to  enter  a  filename. 
Options  3  and  6  employ  on-line  values  of  fm  and  fd  (on-line  data  are  available 
If  an  .IDS  file  has  been  previously  down-loaded  during  the  current  session). 

If  you  choose  option  2,  3,  5  or  6,  and  fd  ■  0  ,  an  advisory  message  will 
Indicate  this  situation.  The  selection  menu  is  then  displayed  again  for 
another  option  selection.  If  on-line  data  are  available,  the  current  values 
of  fm  and  fd  are  displayed.  After  this,  you  continue  processing  with  on-line 
data  by  responding  'yes'  to  the  query: 

Do  you  wish  to  continue  with  on- 1  Ins  Info  ?: 

A  'no'  response  sends  you  back  to  the  selection  menu  for  another  choice. 

5.2.10  Kpd 

Six  options  are  available  for  estimating  Kpd.  They  are  “mirror  Images”  of 
those  used  for  Kpm,  where  fm  and  fd  are  switched  in  equations.  Thus,  the 
equations  Involved  are:  Kpd  *  Kpat  x  fd  and  Kpd  ■  Kpm  x  fd  /  fm  .  Options 
1  through  3  require  Kpat  Input  If  you  enter  CHMPRP11  from  0PEN11.  Options  4 
through  6  require  Kpm  Input  If  you  enter  CHMPRP11  from  0PEN11.  See  Section 
5.2.9  for  fm  or  fd  Inputs  for  the  different  options. 

5.2.11  Kh 

Here,  the  dimensionless  Kh  is  evaluated  as  the  saturation  vapor  pressure 
divided  by  the  water  solubility,  both  evaluated  at  a  given  temperature.  After 
the  initial  display,  you  are  asked 

l«  toperature  of  calculation  25C  (298.2K)  ? 

If  you  respond  'no,'  you  are  prompted  to  enter  a  temperature.  If  you  enter 
CHMPRP11  from  CHMFILll,  there  are  no  further  Inputs,  and  the  result  is 
displayed. 
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If  you  enter  CHMPRP11  from  0PEN11,  you  are  first  queried  for  molecular  weight. 
Then  you  are  queried  for  the  units  In  which  you  plan  to  express  water 
solubility  data  (mg/L,  moles/L,  or  mllllmole/L  are  accepted).  After  this, 
enter  the  numerical  value  for  water  solubility.  This  sequence  is  repeated  for 
the  saturation  vapor  pressure  (allowable  Inputs  are  In  torr  or  mm  Hg, 
atmospheres,  and  pascals). 

5.2.12  Da 

Whether  you  enter  CHMPRP11  from  0PEN11  or  CHMFIL11,  you  are  first  prompted  to 
enter  the  computation  temperature  (Tref)  In  degrees  Centigrade.  Two  options 
are  presented:  an  empirical  method  and  the  Fuller,  Schettler  and  Glddlngs 
(FSG)  method  discussed  In  Section  17-4  of  Lyman  et  al.°.  The  empirical  method 
uses  an  approximation  suggested  by  Small2 

Da  -  8  x  (  Tref  /  298.2  J1-75  /  (Mol  Weight)0-5 

where  Da  Is  In  m2/day,  and  Tref  Is  In  °K.  Thus,  for  entry  from  0PEN11,  you 
provide  the  molecular  weight  and  the  result  Is  displayed. 

The  FSG  method  employs  the  "LeBas  Volume”  as  Input,  which  can  be  estimated 
from  structural  constituents  of  the  substance  according  to  Table  17-5  of  Lyman 
et  al.®  The  Instructions  are  shown  In  Figure  18,  as  are  the  atoms/structures 
of  Table  17<-5.  You  are  prompted:  Enter  ID«  of  const Ituant  hBre: 

When  you  furnish  the  atom/structure  constituent  Identification  number,  the 
cursor  moves  to  the  right  of  the  Item  In  the  tableau,  where  you  enter  the 
number  of  times  the  given  constituent  appears  In  the  molecule.  Then  you  are 
prompted  (near  the  bottom  of  the  screen):  “Do  you  wnt  to  do  eore  (respond  yes  or  no)  ?* 
Until  you  respond  'no',  the  routine  to  enter  Information  Is  continued.  When 
you  respond  'no',  Da  Is  computed  and  displayed.  If  the  LeBas  volume  is  below 
1  ,  you  have  probably  left  out  some  components  of  the  molecule.  In  that  case, 
an  error  message  Is  Issued,  and  you  are  sent  back  to  the  FSG  method 
Instruction  message. 

The  routine  determines  and  displays  the  molecular  weight  from  your  Inputs.  If 
you  entered  CHMPRP11  from  CHMFIL11,  the  molecular  weight  In  on-line  storage 
will  also  be  displayed.  If  there  Is  considerable  error  between  them  (other 
than  round-off  errors;  In  computations,  weights  are  to  the  nearest  0.1  units), 
either  the  tableau  entries  or  the  molecular  weight  in  the  on-line  data  set  are 
Incorrect. 

5.2.13  Kd 

The  routine  estimates  kd  from  the  relation  Kd  -  foe  x  Koc.  If  you  enter 
CHMPRP11  from  CHMFIL11,  Koc  Is  accessed  from  on-line  storage.  However,  there 
are  three  Kd  numbers  that  may  be  evaluated  in  PHAS,  and  each  may  have  a 
different  foe  associated  with  it.  You  have  three  options  for  obtaining  foe  : 

o  down-load  foe  from  a  .LDS  file  (option  1) 
o  use  on-line  foe  data  (option  2) 
o  manual  Input  (option  3). 
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I  Enter  temperature  of  computation  In  Deg  Ci  26 

•••••  INSTRUCTIONS  FOR  LE  8AS  VOLUME  EVALUATION  (FSQ  METHOD) 

The  CRT  will  display  the  FSO  method  structure  units. 

Vou  «rl l I  be  prompted  to  enter  the  structural  constituent 
Identification  number  for  a  constituent  in  the  pollutant. 

{  The  cursor  will  move  to  that  Item.  There,  you  enter  the  number 
,  of  units  In  the  pollutant  structure.  For  example. 

If  your  structure  was  CH2CI -CHBr-COOH,  you  would  enter: 
lost  tcj  3 ;  I0e2  (H]  4:  IOe4  (Sri  1;  IDeS  (Ctl.t  :  and  10  e9 

(Carboxylic  0}  2.  At  the  end  of  each  entry,  you  are  queried 

i  to  continue  with  entries,  and  the  sequence  above  Is  repeated 
until  you  respond  ‘no'  to  this  query. 

Frees  enter  (return)  key  to  continue.... 


LEBAS  VOLUME  CONSTITUENT  UNITS 


I Del  (C)  0 

ID#3  (O  In  Meth  esters/ethers)  0 

ID#5  (0  in  Eth  ester /ethers)  0 

I D#7  (O  In  other  esters/ethers)  0 

i D#9  (O  In  carboxylic  acids)  0 

10# 1 1  (0  bonded  to  S.P  or  N)  0 

I D# 1 3  (other  bonded  0)  0 

I0el5  (Double  bonded  N)  0 

I Del 7  (N  In  primary  amines)  0 

I Deis  (N  in  sec.  amines)  0 

i De2 1  (Antracene  ring)  0 

Enter  lOe  when  prompted.  Then  cursor  will  move  to 
At  that  location,  enter  the  number  of  units. 

Enter  lOe  of  constituent  here: 


IDe2  (H)  0 

I0e4  (Sr)  0 

IDeS  (Cl)  0 

IDeS  (FI)  0 

IDelO  (I)  0 

I  Del  2  (S)  0 

I  Del 4  (3  member  ring)  0 

I  Del  6  (4  member  ring)  0 

I  Del  8  (6  member  ring)  0 

lDe20  (6  member  ring)  0 

I De22  (Naphthalene  ring)  o 

IDe  location. 


Figure  18.  FSG  Method  Instruction  and  Component  Tableau  Display 


If  you  select  option  1,  you  first  get  a  review  of  existing  .LDS  files  and  then 
are  prompted  to  enter  a  file.  When  the  information  is  down-loaded,  you  will 
get  the  message: 

The  fraction  organic  carbon  (foe)  used  Is  [veIub] 

and  the  computed  Kd  is  displayed.  If  you  select  option  2,  the  above  message 
and  answer  are  also  displayed.  If  you  select  option  3,  you  are  prompted  to 
enter  foe,  after  which  the  computed  Kd  Is  displayed.  When  you  select  options 
1  or  2,  the  program  checks  whether  any  of  the  on-line  stored  foe  values  are 
zero.  If  so,  an  error  message  Is  displayed,  and  you  will  have  to  either 
select  another  method  or  choose  another  .LDS  file. 

If  you  enter  CHMPRP11  from  0PEN11,  only  option  3  can  be  used.  Thus,  you  are 
prompted  to  provide  both  Koc  and  foe. 

5.2.14  Cattle  Toxicity  Limit. 

This  subroutine  estimates  a  limiting  dose  for  cattle  based  on  extrapolation 
from  either: 
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o  The  long  tern  human  no  observed  effect  dose  level  (NOEL) 
o  A  mammalian  lifetime  NOEL 
o  A  mammalian  90-day  NOEL 

For  entry  from  0PEN11,  you  must  enter  the  long  term  human  NOEL;  for  entry 
from  CHMFIL11,  this  value  Is  on-line.  For  entry  from  0PEN11  and  from 
CHMFILU,  you  must  the  mammalian  NOEL  data  for  the  last  two  of  these  options. 
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SOURCE  CODE  AND  DESCRIPTION  OF  SYSTEM  OPERATION 

Certain  information  is  used  in  several  PHAS  modules.  The  numeric  and  strings 
variables  corresponding  to  them  are  declared  to  be  COMMON.  These  variables 
are  identified  in  Table  A.l. 

A.l  Error  Traps 

PHAS  has  two  general  types  of  traps  to  handle  errors.  The  first  type  is  for 
“non-fatal"  errors,  incorrect  inputs  which,  if  accepted  by  program  algorithms, 
lead  to  incorrect  execution  and  results.  These  traps  consist  of  "IF... THEN  " 
statements  within  the  modules  that  test  for  the  presence  of  incorrect  entries 
to  prompts.  These  entries  include  numerics  or  alphanumerics  not  specified  as 
input  (for  example,  if  "yes"  or  "no"  is  expected,  but  "maybe"  is  the 
response).  If  such  an  entry  is  detected,  a  message  is  displayed  and  execution 
is  transferred  to  either  a  line  which  provides  information  about  the  input  or 
again  requests  the  input. 

The  traps  that  handle  "fatal  errors"  (errors  which  cause  premature  and 
unexpected  termination  of  program  execution)  are  accessed  via  an  "ON  ERROR 
GOTO..."  command.  The  traps  are  activated  by  the  GWBASIC  interpreter  error 
code,  and  when  encountered,  an  explanation  of  the  likely  error  is  provided. 

You  are  usually  routed  back  to  a  program  line  preceding  the  line  at  which  the 
error  was  encountered. 

Except  where  traps  are  of  special  interest,  they  will  not  be  discussed 
further.  The  author  has  programmed  traps  for  previously-encountered  or 
anticipated  user  errors.  If  you  encounter  other  errors,  you  are  encouraged  to 
contact  the  author  (see  Preface  for  address). 

A. 2  INSTALL 

The  code  for  this  stand-alone  program  appears  in  Figure  A-l.  After  the 
"INSTALLATION  MENU"  is  displayed  (lines  20-110),  you  supply  an  integer  value 
from  1  and  4,  which  is  equated  to  the  variable  ENTR.  A  branching  "ON  ENTR 
GOTO..."  command  at  line  130  directs  program  execution.  Values  of  ENTR  of  1, 
2  or  3  cause  the  string  TWF$  to  be  defined  respectively  as  "B",  "A",  or  "". 

If  ENTR  >  4  ,  your  supplied  drive/subdirectory  information  is  assigned  to  TWF$ 
at  line  160.  TWF$  is  then  written  to  the  file  ASSIGN. CMP  at  line  600.  At 
line  630,  you  are  advised  of  the  value  of  TWF$,  and  the  program  ends. 
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Table  A.l  COMMON  Variables  in  OPEN11  and  Their  Functions 


PANM$(140}  Contains  alphanumeric  designations  for  the  data  variables 
used  by  the  system. 

PMT$(20)  Contains  widely-used  prompts,  messages,  filenames,  and  other 
other  alphanumeric  statements.  PMT$(7)  contains  either 
'soil'  or  'water';  PHT$ (20 )  is  the  stored  chemical  name. 

PANV(140)  Contains  the  numeric  values  for  data  variables  used  in  PHAS. 

IPATH(30)  Index  for  cited  paths.  Locations  1-10  reserved  for  water- 

related  paths,  locations  11-30  reserved  for  soils-related  paths. 
A  value  of  1  indicates  that  a  path  has  been  selected;  a  value  of 
0  indicates  that  a  path  has  not  been  selected. 

PAIDEX(140)  Element  values  are  integers  from  0  to  4  (see  Section  4.5.3). 

The  content  of  this  array  comprise  the  DUST. 

LIMIT ( 10 )  Contains  miscellaneous  numeric  values  used  throughout  PHAS. 

A. 3  OPENll 

The  source  code  for  OPENll  is  in  Figure  A-2.  Since  this  is  the  entry  module, 
common  variable  arrays  in  Table  A.l  with  more  than  10  elements  are 
dimensioned.  The  strings  corresponding  to  PANM$  elements  (these  appear  in 
Appendix  B)  are  down-loaded  from  file  PARAM.CMP  at  lines  40-50.  At  line  610, 
PMT$(5)  is  read  from  ASSIGN. CMP,  the  file  created  by  INSTALL.  PMT$(5)  is  the 
device  name  of  the  drive  or  subdirectory  where  external  data  files  are 
located.  At  lines  630-640,  the  file  PROMPT. CMP  is  down-loaded  from  that 
device.  This  file  contains  eight  strings,  which  are  read  into  these  PMT$ 
elements : 

PMT$(1)«  "  Enter  'yes'  or  'no'." 

PMT$(2)*  "  Input  error,  try  again." 

PMT$(3)»  "  defalvc. Ids  (  A  default  .LDS  file) 

PMT$(4)«  " I II 1 1  Wrong  type  file,  try  again." 

PMT$(6).  "(80  blank  spaces)" 

PMTS(7)«  "off"  (  This  Is  changed  to  "soil"  or  "water"  during  PHAS 
execution.  ) 

PMT$(8)«  "defalva. Ids"  (  A  default  .LDS  file  ) 

PMT$(9)«  "defalc.dat"  (  The  default  .DAT  file  ) 

Line  680  dimensions  the  string  array  BLURB$.  This  array  is  used  to  hold 
description  messages  (see  below).  Line  680  is  the  line  to  which  other  modules 
return  control  to  OPENll.  At  lines  690-770,  the  "MAIN  FUNCTION  SELECTION 
MENU"  Is  displayed.  Your  input  defines  the  variable  IFT,  the  argument  for 
the  "ON  IFT  GOTO..."  command  at  line  790. 

The  routines  executed  in  response  to  selections  'r,'2'  and  '6'  are  in  OPENll. 
At  completion  of  these  selections,  control  is  returned  to  line  690.  Selection 


10  REM  install. bu  program  to  load  disk  assignments  (or  openll. 

20  PRINT  •*•*•**••••*«•*••*  INSTALLATION  MENU  *•****»•**•*•**• 

30  PRINTtPRINT  *  This  program  assigns  a  disk  drive  or  subdirectory  (or* 

40  PRINT  *  asternal  data  tilts  of  the  PHAS  system.  Once  assigned,  the  drive* 

50  PRINT  *  or  subdirectory  will  be  accessed  by  the  system  until  this  program* 

60  PRINT  *  is  again  run.  Enter  an  option  (rom  1  to  4....*iPRINT 
:  70  PRINT  *  Input  '1'  (or  B:  drive  (good  (or  a  dual-floppy  disk  system).* 

60  PRINT  '  Input  '2'  (or  As  drive  (good  (or  hard  disk/floppy  disk  system* 
i  85  PRINT  *  or  programs  in  Ct  drive/data  in  As  drive  eon(iguration) 

90  PRINT  *  Input  '3'  to  put  all  info  (data  and  programs)  on  this  subdirectory* 
100  PRINT  *  Input  '4'  to  put  data  files  on  a  different  subdirectory.* 

;  110  INPUT  *  Enter  your  selection.  *,ENTR 
I  120  IP  ENTROl  AND  ENTR<>2  AND  ENTR<>3  AND  ENTR<>4  THEN 
PRINT  'Please  enter  1,2,3  or  4*sGOTO  110 
130  ON  ENTR  GOTO  300,400,500,140 

140  PRINT  *  •  SUBDIRECTORY  ON  THIS  DISK/ AN  OTHER  DISK  CONFIGURATION  INSTALLATION* 
150  PRINT  *  Please  enter  the  drive  and  subdirectory  desired.  You  may  omit  the* 

155  PRINT  *  drive  designation  i(  both  programs  and  data  are  on  the  same  drive.* 

156  PRINT  *  Otherwise,  enter  info  in  <drive>s\subdirectory\  format.* 

:  160  INPUT  *  Be  sure  to  conclude  vith  the  closing  backslashs  *,TW 7$ 

I  160  IF  TWF$«**  THEN  PRINT  "You  entered  a  blank,  try  againll'sGOTO  140 
;  190  IF  RIGHTS (THF$,1) <>’ \*  THEN  PRINT  *Please  conclude  vith  backslashll’s 
GOTO  140  ELSE  GOTO  600 
t  300  TWF$-*B:*sGOTO  600 
!  400  TWF$-*As*sOOTO  600 
!  500  THFS-**sGOTO  600 

600  OPEN  'assign. emp*  FOR  OUTPUT  AS  flsWRITE  #1 ,TWF$:CLOSE  «1 

630  IF  ENTR  <>  4  THEN  PRINT  *  Your  data  bases  are  expected  to  be  on  ... 

*TWF$  *  disk  drive.*  ELSE  PRINT  *  Your  data  bases  are  expected  to  be  on 
subdirectory  *TWF$ 

635  PRINT  *  (if  no  designation,  dr iveVsubdi rectory  is  same  as  (or  programs)* 

640  PRINT  *  If  there  is  a  mistake,  please  rerun  this  program.* 

650  INPUT  *  Press  return  key  to  complete  this  program. *,IFT$ 

700  PRINT  *  Good-bye  from  INSTALL. BAS* s SYSTEM 

Figure  A-l.  Source  Code  (or  INSTALL 


4  COMMON  PAIDEX(),IPATH(),PMT$(),PANM$(),PANV(),LIMIT() 

10  REM  OPEN11  3/3/89  Version 
20  OPTION  BASE  1 
25  ON  ERROR  GOTO  3100 

30  DIM  PAIDEX(140) , IPATH(30) ,PANM$ (140) ,PANV(140) ,PMT$(20) 

40  OPEN  *param.cmp*  FOR  INPUT  AS  #1 

50  FOR  J%-1  TO  140s INPUT  f 1 ,PANM$ (J% ) :NEXT  JlsCLOSE  tl 
610  OPEN  * assign. emp*  FOR  INPUT  AS  flsINPUT  fl,PMT$(5):CLOSE  tl 
630  OPEN  PMT$ ( 5 ) ♦ 'prompt . emp*  FOR  INPUT  AS  f2 
635  FOR  J%-1  TO  4:INPUT  |2,PMT$(J%) sNEXT  J% 

640  FOR  J%-6  TO  9: INPUT  f2,PMT$(J%) sNEXT  J%:CLOSE  |2 

650  CLS:  LOCATE  5,5:  PRINT  "  **  POLLUTANT  HAZARD  ASSESSMENT  SYSTEM  (PHAS)  *** 

660  LOCATE  8,15sPRINT  'Version  1.1,  March  1989* 

(  680  DIM  BLURB5(20)  ’ENTRY  POINT  FOR  CHAINS  blurb$(20)  alpha  field  for  info 
690  LOCATE  ll,5sPRINT  **********  MAIN  FUNCTION  SELECTION  MENU  ••***•*•*** SPRINT 
|  695  PRINT  TAB ( 5 )  'ENTER  FUNCTION  PERFORMED  BY  ENTRY 

i  700  PRINT  TAB(5)  *1  To  get  a  brief  description  of  the  system.* 

■  710  PRINT  TAB(5)  *2  To  get  a  more  in-depth  description  of  specific  modules.* 

720  PRINT  TAB(5)  *3  To  do  your  scenario  definition  and  pathway  selections.* 

730  PRINT  TAB(5)  *4  To  do  your  non-chemical  data  selection  and  editing.* 

750  PRINT  TAB (5)  *5  To  do  vour  chemical  data  selection  and  editing.* 

760  PRINT  TAB(5)  *6  To  review  on-line  data  and  pathway  information.* 

765  PRINT  TAB(5)  *7  To  do  PPLV  Calculation  and  constraint  analysis.* 

767  PRINT  TAB(5)  *9  To  do  selected  Chemical  Estimation  Methods  ’off-line’.* 

770  PRINT  TAB(5)  "10  To  exit  the  system.* 

780  INPUT  *  ENTER  YOUR  FUNCTION  NUMBERS  *,IFT 

783  IF  IFT<1  OR  IFT>10  THEN  PRINT  PMT$(2)sGOTO  780 

790  ON  I FT  GOTO  870,1100,800,810,820,2500,855,860,865,2000 

Figure  A-2.  Source  Code  (or  OPEN11  (page  1  of  3  pages). 
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800  CHAIN  'PATWAY11' 

810  CHAIN  'INPUTS11* 

820  CHAIN  'CHMFIL11* 

855  CHAIN  'COMPUT11' 

860  PRINT  I  FT  *  is  currently  an  undesignated  function,  try  ano  * ' :wro  780 
:  865  LIMIT(5)"0: PRINT  'Please  vait  for  CHKPRP11;  loading  takes  about 
20  seconds'* CHAIN  'CHMPRP11* 

870  CLS:  LOCATE  2,1*PRINT  '  *******  OVERVIEW  OP  PHAS  PROGRAM  MODULES  ********  ■ 
875  DUMFI LE$-* overview, cmp" *GOSUB  2995 
1060  GOSUB  3050 
1080  CLS:GOTO  690 

1100  CLS: LOCATE  10,15*PRINT  '•*  SELECT  FUNCTION  NUMBER  FOR  DESIRED  MODULE  *** : 

•  PRINT 

]  1110  PRINT  *  Select  1  for  PATWAY11  (Scenario  builder)' 

!  1120  PRINT  '  Select  2  for  INPUTS 11  (Non-chemical  data  processor)* 

j 1130  print  *  Select  3  for  CHMFIL11  (Chemical  data  processor)* 

|  1132  PRINT  '  Select  4  for  COMPUTll  (PPLV  and  Constraint  Analysis)' 

1  1134  PRINT  '  Select  5  for  Diagnostic  Printouts  Routines* 

:  1136  PRINT  *  Select  6  for  CHMPRP11  (Chemical  Data  Information  and  Estimates)* 

1137  PRINT  ”  Select  7  to  exit  without  module  description* 

1140  INPUT  '  ENTER  YOUR  FUNCTION  NUMBER*  • , I  FT 

1145  IF  IFT<1  OR  IFT>7  OR  IFT<>INT( IFT)  THEN  PRINT  PMT$(2)*GOTO  1140 
1150  ON  IFT  GOTO  1160,1300,1390,1420,1450,1600,1080 

1160  CLS: LOCATE  2,1*PRINT  '***  DESCRIPTION  OF  SCENARIO  BUILDER  MODULE  ***** 

1170  DUMFILES-  'pathway . cmp* * GOSUB  2995*GOTO  1060 

1300  CLS: LOCATE  2,1*PRINT  ****  DESCRIPTION  OF  NON-CHEMICAL  DATA  PROCESSOR  **■ 

1305  DUMFILES- 'inputs. cmp** GOSUB  2995 *GOTO  1060 

1390  CLS : LOCATE  2,1*PRINT  ***•  DESCRIPTION  OF  CHEMICAL  DATA  PROCESSOR  ***** 

1395  DUMP I LE$  *  * chemf i le . cmp*  *  GOSUB  2995:GOTO  1060 

1420  CLS : LOCATE  2,1*PRINT  *  DESCRIPTION  OF  PPLV  AND  CONSTRAINT  ANALYSIS  MODULE* 
1425  DUMFILES -’compute. cmp’ : GOSUB  2995*GOTO  1060 

1450  CLS : LOCATE  2,1*PRINT  DESCRIPTION  OF  DIAGNOSTIC  PRINTOUT  MODULE  **** 

1455  DUMFILE$**diagnost .cmp* iGOSUB  2995:GOTO  1060 

1600  CLS : LOCATE  2,1*PRINT  'DESCRIPTION  OF  CHEMICAL  PROPERTY  ESTIMATIONS  MODULE* 

1605  DUMFILE$**chemprop.cmp* * GOSUB  2995*GOTO  1060 

2000  PRINT  pmt$ ( 1 ) t  INPUT  '  Are  you  leaving  the  PHAS?  ',OP$ 

2010  IF  OP$<>'yes*  AND  OP$<>'no*  THEN  PRINT  PMT$(2)*GOTO  2000 
2020  IF  OP$-*no’  THEN  CLSsGOTO  690 

2030  CLS: PRINT  TAB{20)  ’***  GOODBYE  FROM  PHAS  -  HAVE  A  NICE  DAY  ••** {SYSTEM 
2500  PRINT  TAB<5)  ■*•••*•••••**•  DISPLAY-PRINT  UTILITY  MENU  ************** 

2510  PRINT  TAB(5)  'Input  number  for  desired  printout* 

2520  print  TAB(5)  'Select  '1'  for  pathway  status 

2525  print  TAB(5)  'Select  *2'  for  data  use  status  table  (DUST)” 

2530  PRINT  TAB(5)  'Select  *3'  for  values  of  non-chemical  data  from  .LDS  file* 

2540  PRINT  TAB(5)  'Select  ’4'  for  values  of  chemical  data  from  .DAT  file* 

2560  PRINT  TAB(5)  'Select  ’5'  for  printout  of  variables  from  .LDS  and  .DAT  files* 
2562  PRINT  TAB(5)  *  with  narrative  identies  supplied.* 

2565  PRINT  TAB(5)  'Select  *6’  to  quit  this  utility  and  return  to  main  menu.* 

;  2570  INPUT  NUMB* IF  NUMB <> I NT (NUMB)  OR  NUMB>6  OR  NUMB<1  THEN 
i  PRINT  PMT$(2) *GOTO  2500 

!  2575  ON  NUMB  GOTO  2580,2650,2720,2780,2890,1080 
I  2580  PRINT  TAB(8)*Water*TAB(18)*Soil  #l*TAB(28)'Soil  82' 

2585  PRINT  TAB ( 8 ) "Paths 'TAB (18)' Paths* TAB ( 28 ) 'Paths ' 

!  2590  FOR  J%-1  TO  10 SPRINT  J%  TAB(8)  IPATH(J%)  TAB(18)  IPATH(J%*10) 

•  TAB (28)  IPATH(J%+20) *NEXT  J% 

j  2610  PRINT:PRINT  *  1st  column  corresponds  to  water  pathways  1  thru  10. '* 

>  PRINT*  2d  column  corresponds  to  soils  pathways  1  thru  10.* 
j  2611  PRINT  "  3d  column  corresponds  to  soils  pathways  11  thru  20.* 
i  2612  PRINT  *  Current  info  is  from  loaded  or  stored  file  ...”PMT$(11) 

1  2613  PRINT  *  If  no  file,  your  on-line  data  is  not  stored  off-line.* 

!  2620  GOSUB  3050:GOTO  2500 
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2650  PRINT  *#ten  #ten+l  #ten+2  #ten+3  #ten+4  #ten+5  #ten+6  #ten+7  ften+8 
#ten*9  #ten+10* 

2660  PRINT  * { rov ) *  t  POR  J%«0  TO  13 

2670  PRINT  J%  TAB(6)  PAIDEX(10*J»+1 )  TAB(13)  PAIDEX(10*J%*2) 

TAB( 20 )  PAIDEX(10*J%+3)  TAB<27)  PAIDEX<  10*J%«-4)  TAB<34)  PAIDEX(10*J%+5) 
TAB(41 )  PAIDEX ( 10* J%+6 )  TAB(47)  PAIDEX(10*J%+7)  TAB(55)  PAIDEX(10*JI+8) 
TAB (62)  PAIDEX ( 10* Jt+9)  TAB(69)  PAIDEX(10*J%-H0) 

!  2680  NEXT  J« 

-  2685  PRINT  'For  data  index,  read  dovn  for  tena,  add  acroaa  for  unita.* 

12690  PRINT  'Thus,  item  at  rov  4,  #ten+4  (44)  is  index  for  Upn 
(see  Manual  Table  D'iGOTO  2620 
2720  LIMIT(l)-0:LIMIT(2)-17sGOSUB  3000 

2730  PRINT  *  For  location,  read  dovn  side  for  Multiple  of  5,  then  across.* 

2740  PRINT  '  Last  dovn-loaded  file  vss  ...*PMT$(12)  '.  Data  stored  in  ...' 

PMT$(13)  (PRINT  *  If  blank,  data  are  only  accessed  on-line.* (GOTO  2620 
2780  LIMIT(l)-18sLIMIT(2)«27sGOSUB  3000 
2810  PRINT  *  Data  is  for  substance  *PHT$(20) 

2815  PRINT  '  For  location,  read  dovn  side  for  Multiple  of  5,  then  across.* 

2820  PRINT  *  Last  dovn-loaded  file  vas  . . .*PMT$(14)*  .  Data  stored  in  ...* 

PMT$ ( 15) :  PRINT  *  If  blank,  data  are  only  accessed  on-line. '(GOTO  2620 
2890  IF  PANV(1)<>0  AND  PANV(126)<>0  THEN  2940 
;  2900  PRINT  *  WARNINGS  You  May  not  have  valid  data*:PRINT  PMT$(l)s 
j  INPUT  *  Do  you  vish  to  continue?  *,OP$ 

,  2920  IF  OP$-*no*  THEN  2500 

2930  IF  OP$<>*yes*  AND  OP$<>*no*  THEN  PRINT  PHT$(2):GOTO  2900 

2940  FOR  J%-1  TO  140:IP  PANV(J%)<-0  THEN  2970  ELSE  LPRINT  PANM$(J%) ;PANV(J%) 

! 2970  NEXT  J% 

2975  LPRINT  *  Substance  is  *PMT$(20) (GOTO  2500 

2995  OPEN  DUMFILE$  FOR  INPUT  AS  #l:FOR  J%-1  TO  20sINPUT  #1 ,BLURB$ (J%) : 

NEXT  J%: CLOSE  #1 

2998  FOR  J%-1  TO  20sPRINT  BLURB $ (J«) (NEXT  JtsRETURN 

3000  PRINT  'line  *  TAB(IO)*  one  *  TAB(24)  *  tvo  *  TAB(38)  "three* 

TAB (52)  ’four*  TAB ( 66 )  'five* 

3010  FOR  J%«LIMIT(1)  TO  LIMIT(2) 

3020  PRINT  J%*5  *♦*  (SPRINT  TAB(9)  PANV(5*J%+1)  TAB(23)  PANV(5*J%+2) 

TAB(37)  PANV(5*J*+3)  TAB (51 )  PANV(5*J%+4)  TAB(65)  PANV(5*J%+5) 

3030  NEXT  J% 

3040  RETURN 

3050  INPUT  *  Hit  enter  (return)  to  continue. ,..* ,ANI$: RETURN 

3100  IF  ERR- 5 3  AND  ERL-610  THEN  PRINT  *  INSTALL  has  not  been  executed.  Refer  to 
User's  Guide* SPRINT  'SORRY,  YOU  CANNOT  PROCEED  FURTHER. * s SYSTEM 
3105  IF  ERR- 71  AND  ERL- 6 30  THEN  PRINT  *PHAS  expects  stored  data  in  drive  * 
PMT$(5) SPRINT  'Drive  is  apparently  esnpty.  Please  correct,  then  press 
return  to  continue* s INPUT  ANY$s RESUME  630 
3110  IF  ERR- 5 3  OR  ERR- 5 7  AND  ERL-630  THEN  PRINT  *PHAS  expects  external  data 
in  drive  *PMT$(5) SPRINT  'Wrong  data  or  vrong  disk  is  in  place.  Please 
correct,  then'sPRINT  *  press  return  to  continue.* (INPUT  ANY$ (RESUME  630 
3115  IF  ERR-76  AND  ERL-630  THEN  PRINT  *Your  designation  of  drive  for  the 
Disk  B  files  *  PMT$(5)  SPRINT  *Is  apparently  incorrect.  Try  INSTALL 
again. "(SYSTEM 
3120  END 
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*  1  *  causes  the  file  OVERVIEW. CMP  (shown  in  Figure  2,  main  text)  to  be  down¬ 
loaded  and  displayed.  In  the  Selection  '2'  routine,  the  command  “ON  IFT 
GOTO..."  at  line  1150  is  used  to  reference  specific  descriptions;  here,  the 
argument  IFT  is  supplied  at  line  1140.  The  descriptions  are  down-loaded  from 
“.CMP"  files.  The  string  DUMFILE$  is  assigned  the  specific  description 
filename.  The  subroutine  at  lines  2995-2998  down-loads  the  file  contents 
into  the  string  array  BLURBS,  and  the  20  elements  of  BLURBS  are  displayed. 

Selection  '6'  accesses  a  routine  which  was  initially  written  as  a  separate 
module,  and  is  at  lines  2500-2975.  Its  selection  menu  is  at  lines  2500-2565. 
Your  response  at  line  2570  is  the  argument  NUMB  for  the  “ON  NUMB  G0T0...“ 
command  at  line  2575.  The  options  associated  with  NUMB  are: 

1.  Display  the  contents  of  the  array  IPATH  on  the  monitor  and  the  the  last 
.PTH  file  either  down-loaded  or  stored. 

2.  Display  the  contents  of  the  array  PAIDEX  on  the  monitor.  This  display  is 
across  the  screen,  ten  elements  to  a  line  (lines  2650-2680). 

3.  Display  non-chemical  specific  data  (PANV(l)  through  PANV(90))  on  the 
monitor  as  well  as  the  last  .LDS  files  down-loaded  or  stored.  Line  2720 
initializes  LIMIT ( 1 )  and  LIMI T ( 2 ) ,  and  the  subroutine  at  line  3000  is  called. 
This  subroutine  (through  line  3040)  displays  the  PANV  array  across  the  screen, 
five  elements  to  a  line. 

4.  Display  chemical  specific  data  (PANV(91)  through  PANV(140))  and  PMT$(20), 
the  chemical  name  on  the  monitor  as  well  as  the  last  .DAT  files  down-loaded  or 
stored.  These  data  are  displayed  similarly  to  .LDS  file  data. 

5.  Print  out  the  PANM$  string  and  corresponding  values  in  the  PANV  array  for 
positive-valued  elements  and  PMT$(20).  The  line  printer  is  needed  for  this 
selection.  Line  2890  tests  for  non-zero  values  at  elements  PANV(l)  and 
PANV(126) ,  two  "global  variables".  If  zero  values  are  encountered,  this  means 
that  neither  a  .LDS  or  a  .DAT  file  has  been  down-loaded  during  the  current 
session  or  that  both  files  were  not  prepared  correctly.  An  advisory  warning 
is  displayed  at  line  2900.  The  printing  occurs  at  line  2940-2970.  Line  2940 
line  has  an  initial  test  to  skip  zero  or  negative-valued  PANV  elements,  and 
only  prints  the  paired  PANMS  and  PANV  for  other  elements. 

6.  Leave  the  routine  and  return  to  the  0PEN11  main  selection  menu. 

The  remaining  selections  ('3' ,'4' ,'5' ,’7',  and  *9')  access  specific  modules 
via  the  CHAIN  command,  which  is  similar  to  a  FORTRAN  "CALL".  Prior  to 
"CHAINing"  to  CHMPRP11  (selection  '9'),  LIMIT (5)  is  reset  to  zero  at  line  865. 
CHMPRP11  uses  LIMI T( 5 )  to  differentiate  between  prior  access  from  0PEN11  and 
from  CHMFIL11 .  Since  CHMPRP11  is  the  longest  module  In  PHAS,  this  CHAIN 
operation  may  exceed  10  seconds,  particularly  for  slower  (<  8  Mhz)  systems. 

Four  error  traps  are  in  0PEN11.  The  first  (line  3100)  detects  the  inability 
to  access  PMT$(5).  The  others  detect  the  absence  of  PROMPT. CMP,  either  as  a 
result  of  an  empty  floppy  disk  drive,  a  floppy  disk  drive  with  the  wrong  disk, 
or  the  wrong  subdirectory  assignment. 
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A. 4  PAT WAY 11 

The  source  code  for  this  module  is  in  Figure  A-3.  In  addition  to  the  common 
variables  listed  in  Table  A-l,  the  following  arrays  appear  in  PATWAY11: 

PHS(30,140)  This  matrix  holds  the  index  status  of  variables  for  each  pathway. 

PMPS(30)  This  string  array  holds  the  narrative  descriptions  of  pathways. 

SC0RE(16)  An  array  used  to  test  for  potential  duplication  of  passages  in  the 
"PATHWAY  SELECTIONS  AND  DATA  NEED  SUMMARY"  report. 

PMPS  strings  are  read  in  for  the  8  water-based  and  14  soil-based  pathways  from 
PATPMP.CMP  at  line  50.  Then,  the  main  mode  menu  is  displayed  which  asks  for 
your  input  to  IFT  at  line  140.  The  option  to  review  stored  files  is 
provided  at  lines  160-180. 

After  the  file  review  option  is  exercised  (or  declined),  execution  branches  at 
line  200,  based  on  IFT.  When  IFT  ■  1  ,  you  are  prompted  for  a  filename 
(PMTS(ll),  line  210).  At  lines  240-270,  the  named  file  is  opened,  and  the 
contents  are  down-loaded  respectively  to  IPATH  (30  entries),  PAIDEX  (140 
entries),  and  PMTS(7).  Next,  line  300-320  displays  pathways  included  in  the 
file,  those  pathways  for  which  IPATH  is  non-zero  (line  300).  After  this 
display,  execution  moves  to  line  860.  Here,  information  is  supplied  so  that 
PHAS  can  recognize  that  a  .PTH  file  has  been  down-loaded.  The  flag  for  this 
is  LIMI T ( 3 )  «  1  ;  the  "OR"  operation  sets  the  right-hand  digit  of  LIMIT(4)  to 
one.  The  module  exits  to  0PEN11  at  line  910. 

If  IFT  «  2  ,  the  module  executes  the  file  processing/storage  mode.  PMT$(7) 
is  the  alphanumeric  "soil"  or  “water"  at  line  353.  Based  on  the  entry, 
LIMIT(l)  and  LIMIT(2)  are  valued.  For  water,  LIMIT(l)  -  1  and  LIMIT(2)  »  10  ; 
for  soil,  11  and  30  ,  respectively.  LIMIT(l)  and  LIMIT(2)  restrict 
presentation  of  pathways  so  soil  pathways  are  not  displayed  if  water  pathways 
are  specified  and  vice  versa.  Version  1.1  of  PHAS  has  capacity  for  10  water 
pathways  and  20  soil  pathways. 

All  elements  of  the  arrays  IPATH  and  PAIDEX  are  set  to  zero  at  line  390.  This 
is  necessary  to  preclude  errors  at  line  490  (see  below)  which  would  occur  if  a 
.PTH  file  had  been  previously  down-loaded  in  the  current  session.  At  line 
410,  a  loop  from  LIMIT(l)  to  LIMIT(2)  is  entered.  The  CRT  displays  PMPS(JS) 
for  each  non-zero  string,  and  you  are  prompted  to  enter  yes  or  no  at  line  440. 
Your  response  values  a  string  OPS.  When  OPS  is  "yes",  execution  is  routed  to 
a  pathway-specific  sub-routine  by  the  "ON  Jt  60SUB  ..."  command  at  line  470. 
When  0P$  is  "no",  the  next  Ot  is  accessed  at  line  500.  Each  sub-routine 
contains  the  non-zero  PHS  elements  for  the  JSth  pathway.  Combinations  of 
elements  common  to  several  pathways  appear  in  the  subroutines  at  lines  2500- 
2920  (for  example,  PANV(56),  PANV(57),  and  PANV(58)  always  occur  together;  see 
line  2600).  At  line  480,  the  return  from  any  sub-routine  call  of  line  470, 
IPATH(Jl)  is  set  equal  to  1  . 
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2  COMMON  PAIDEX( ) , IPATH( ) , PMT$ ( ) ,PANM$ ( ) ,PANV( ) , LIMIT ( ) 

9  REM  PATWAY11  REVISED  8/8/89 

20  OPTION  BASE  1 

35  ON  ERROR  GOTO  3000 

40  DIM  PHS(30,140) ,PMP$(30) , SCORE (16) 

50  OPEN  'patpop.cnp*  FOR  INPUT  AS  #l:POR  J%-1  TO  30:INPUT  #1  ,PMP$ ( J%)  jNEXT  J%: 


CLOSE  |1 

j  120  CLS: PRINT  *****  WELCOME  TO  SCENARIO  FORMULATION  MODULE  (PATWAT11) 
'  125  PRINT  •***•*****•*«*«•  MODE  OF  OPERATION  SELECTION  MENU  ********* 


130  PRINT  *  Input  '1’  to  use  a  stored  .PTH  file  in  the  'load  and  go'  Bode* 
.140  INPUT  ■  ONLY.  Otherwise  input  '2'.  ",  I FT 
145  IF  I FT  <>  1  AND  I FT  <>  2  THEN  PRINT  PMT$(2):GOTO  130 
160  PRINT  PMT$ ( 1 ): INPUT  *  Do  you  want  a  listing  of  pathindex  files?  *,OP$ 

170  IF  OP$<>"no*  AND  OP$<>*yes*  THEN  PRINT  PMT$(2):GOTO  160 

180  IF  OP$-*no*  THEN  200  ELSE  CLSjFILES  PMT$ (5)*** .pth* iGOSUB  2950 

200  IF  IFT-2  THEN  350 

210  input  •  Enter  your  pathway  input  file  (include  .PTH  extension)  ";PMT$(11) 
.230  IF  RIGHT$(PKr$(ll),4)o*.pth*  THEN  PRINT  PMT$(4):GOTO  210 
!  240  OPEN  PMT$(5)+PMT$(11)  FOR  INPUT  AS  #2 
;  250  FOR  Jt-1  TO  30t  INPUT  #2 , IPATH( J% ) :  NEXT  J« 

1  260  FOR  J%-1  TO  140:  INPUT  #2,PAIDEX(J%) :  NEXT  J«: INPUT  12,  PKT$ ( 7 ) : CLOSE  #2 
i  280  PRINT  •  Pathway  file  information  loaded  from  *PMT$(5)*PMT$(ll) 

'  290  PRINT  *  ********* ***pxTHWAYS  IN  •  PMT$ ( 5)+PMT$ (11 ) 

300  FOR  J*«l  TO  30:  IF  IPATH(J*)»0  THEN  320  ELSE  PRINT  PMP$ (J%) : PRINT 
320  NEXT  J«:GOTO  860 


i  350  PRINT  ****************  SCENARIO  CONSTRUCTION  ROUTINE  ***************** 
353  INPUT  *  Enter  medium  for  PPLV  analysis  (soil  or  water):  *,PMT$(7) 

355  IF  PMT$ (7 Jo-water*  AND  PMT$(7)<>*aoil*  THEN  PRINT  PMT$(2):GOTO  353 
360  IF  PMT$(7)«  -water*  THEN  LIMIT(l)-ltLIMIT(2)-10:GOTO  390 
i  370  IF  PMT$(7)-  -soil*  THEN  LIMIT(l)-ll:LIMIT(2)-30 
390  FOR  J*-l  TO  140:PAIDEX(J%)-0:NBXT  J%:FOR  J%-1  TO  30: IPATH(J%)-0:NEXT  J% 
405  PAIDEX(1)-1:PAIDEX(2)«1:PAIDEX(126)-1:PAIDEX(127)-1:IPOT-0 
410  FOR  J%-LIMIT(1)  TO  LIMIT(2):IF  LEN(PMP$(J*) )<5  THEN  500 
440  LOCATE  16,1  :PRINT  PMP$ (J%) : PRINT  PMT$(1): 
input  •  Do  you  want  this  pathway  ?  -,OP$ 

:  450  IF  OP$-*no*  THEN  495 

460  IF  OP$  <>  -yes’  THEN  PRINT  PMT$(2) :SCORE(16)«l:GOTO  495 
470  ON  J%  GOSUB  930,940,950,960,970,980,990,1010,1020,1030, 

1040,1050,1060,1070,1080,1090,1100,1110,1120,1125,1126,1130,1140,1144 
480  I PATH ( J % ) ■ 1 : I POT- I POT  OR  IPATH(J%) 

490  FOR  K%-1  TO  140:PAIDEX(K«)-PAIDEX(K%)  OR  PKS(J«,K«) :NEXT  R% 

495  LOCATE  16,l:GOSUB  2960:IF  SCORE(16)-l  THEN  SCORE(16)-0:GOTO  440 
500  NEXT  J* 


504  IF  IPOT<>0  THEN  515 

505  PRINT  •  NO  PATHWAYS  WERE  SELECTED  IN  THIS  RUN.  IS  THIS  WHAT  YOU  WANT?* 

506  INPUT  •  Please  enter  yes  or  no.  ■ , ANY$ 

508  IF  ANY$<>’yes-  AND  ANY$o*no"  THEN  PRINT  PMT$(2):GOTO  505 

510  IF  ANYS-’yes*  THEN  PRINT  ■  Program  will  exit  directly  to  OPEN11*: 

GOSUB  2950:GOTO  910 

512  PRINT  *  Program  will  go  back  to  pathway  display  and  selection  sequence": 
GOSUB  2950 

514  LOCATE  16,l:GOSUB  2960: GOTO  410 

515  LOCATE  16,10  :PRINT  *  NOW  PRINTING  OUT  DATA  REQUIREMENTS  REPORT- 

517  LPRINT:LPRINT  *********  PATHWAY  SELECTIONS  AND  DATA  NEEDS  SUMMARY  ****** 
520  LPRINT  *  FOR  ALL  PATHWAYS,  YOU  WILL  NEED* :LPRINT  PANM$(1)  •  or  -PANM$(2) 
540  LPRINT  TAB(5)  "and  either* : LPRINT  PANM$(126) 

550  LPRINT  *  or  *PANM$(127) 

560  LPRINT: LPRINT  *  ************  SPECIAL  ABBREVIATIONS  ***••*****•*• 

562  LPRINT  •  dwb  -  dry  weight  basis* :LPRINT  •  nodim  »  dimensionless* 

564  LPRINT  *  p.c.  -  pertition  coeff icient’iLPRINT 
570  FOR  J%-LIMIT<1)  TO  LIMIT(2):IF  IPATH(J%)-0  THEN  640 
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590  LPRINT  PMP$(J%) : LPRINT: LPRINT  "PRIME  VARIABLES  INVOLVED  IK  CALCULATION  ARE* 
600  FOR  K%«3  TO  130:  IF  PHS(J%,K%)/2  <>  INT(PHS(J%,K%)/2)  THEN  LPRINT  PANM$(K%) 


620  NEXT  K« 

630  LPRINT  TABOO)  *  **•***«***»•«,  LPRINT 

640  NEXT  J% 

645  LPRINT: LPRINT  '*** ‘COMPUTATION  OPTIONS  FOR  CHEMICAL  MAIN  PATH  VARIABLES**** 
,  650  FOR  J»»U1  TO  125: IF  PAIDEX(J%)«0  OR  PAIDEX(J%)-2  THEN  670 
!  665  ON  (J4-110)  COSUB  1150,1190,1190,1320,1340,1380,1*00,1430,1440,1460,1170 
I  670  NEXT  J% 

'  672  LPRINT  TAB(20)  ••*****«**•  CONSTRAINT  ANALYSIS  ADVISORY  *****••**•« 


,  673  LPRINT  TAB{5)  "Type  1:  PPLV  »ay  adversely  effect  non-human  species  or 
overlook*: LPRINT  TAB(5)  *non-toxic  adverse  human  responses*: LPRINT 
676  FOR  J%»131  TO  140: IF  PAIDEX(J%)<>4  THEN  680 

679  ON  (J%-130)  GOSUB  2000,2100.2200,2300,2300,2400,2400,2400 

680  NEXT  Jt 

684  IF  PMT$(7)»*water"  THEN  LPRINT:LPRINT  *  Type  2  constraint  occurs  if  PPLV  exce< 
LPRINT  PANM$(95) :LPRINT:GOTO  695 

686  LPRINT: LPRINT  "  Type  2  constraint  occurs  if  cone,  in  water  phase  when  soil 
cone.  -  PPLV* :LPRINT  *  Exceeds  "PANM$ ( 95) : LPRINT 
.  695  PRINT  *•••***•*•*****•****•  STORAGE  DISPOSITION  MENU  a****************** 
i  697  PRINT  *  Storage  to  external  file  routine.  You  can  store  the  information* 

;  700  PRINT  "  developed  in  this  session  a  file  on  ‘Disk  2‘.  If  not," 

705  PRINT  *  the  information  is  in  on-line  storage  until  overwritten.* 

710  INPUT  "  Enter  *1'  for  no  storage,  ’2'  for  file  storage.  *,  I FT 
720  IF  IPT<>2  AND  IFT<>1  THEN  PRINT  PMT$(2):GOTO  710 
730  IF  IFT-1  THEN  860  ELSE  INPUT  *  ENTER  AN  ALLOWABLE  NAME  UP  TO  8 
ALPHAHUMS  "/P!<fr$(ll) 

740  IF  PMT$(ll)«*default.pth"  THEN  PRINT  *  Please  don’t  use  default. pth  as  a 
filename.  Try  again*:GOTO  730 
795  IF  LEN(PMT$(11))>8  THEN  PRINT  PMT$(2):GOTO  730 
800  FILL$-PMT$ (5)+PMT$ (11 )+* .pth* :OPEN  FILL?  FOR  OUTPUT  AS  #1 
820  FOR  J%-1  TO  30:  WRITE  I 1 , IPATH(J%) :  NEXT  J% 

830  FOR  J»-l  TO  140:  WRITE  f 1 ,PAIDEX( J% ) :NEXT  Jt:WRITE  fl,PMT$(7) :CLOSE  #1 
|  850  PRINT  TAB( 5)  "You  have  stored  scenario  on  file  *FILL$:PMT$(11)«FILL$ 

860  GOSUB  2950:LIMIT(3)-1:LIMIT(4)-LIMIT(4)  OR  LIMIT(3) 

910  CLS: CHAIN  *openll*,680 
,  930  PHS ( 1 , 3 ) "1 : PHS { 1 , 1 31 ) “4 : PHS ( 1 , 23 ) *1 : RETURN 
!  S40  PHS(2,lll)-l:PHS(2,4)-ljPHS(2,24)-l:GOSUB  2750 
945  PHS(2f91)-2:PHS(2,101)«2:PHS<2,132)-4:RETURN 

950  PHS(3.5)«l:PHS(3,25)-l:PHS(3,112)-l:PHS(3,113)-2:PHS(3,118)«2:PHS(3,91>-2 

954  GOSUB  2500:GOSUB  2750:PHS(3, 95)-0:RETURN 

960  PHS(4,6)-l:PHS(4,26)-l:PHS(4,114)-l:GOSUB  2525:GOSUB  2910 

965  GOSUB  2900:P  o(4,106)-2:PHS(4,115)-2:GOSUB  2750:RETURN 

970  PHS(5,6)-l:Pna(5,26)-l:GOSUB  2525:GOSUB  2760:GOSUB  2910 

973  GOSUB  2900:PHS(5,106)-2:GOSUB  2750:PHS(5, 118)-2:GOSUB  2500:RETURN 

980  PHS(6, 7)»1 :PHS(6, 27)-l : GOSUB  2550:PHS (6,114 )-2:PHS(6,115)-l 

982  PHS (6, 106) "2: GOSUB  2900:GOSUB  2750:GOSUB  2920:RETURN 

990  PHS ( 7 , 7 ) "1 : GOSUB  2550:GOSUB  2770:PHS(7,106)-2:GOSUB  2750:GOSUB  2900 

994  PHS ( 7 , 2  7 )  ■  1 : PHS ( 7 , 1 1 8 ) ■ 2 : GOSUB  2500:GOSUB  2920:RETURN 

1010  PHS(8,12)-1:PHS(8,13)-1:PHS(8,33)«1:PHS(8,121)-1:PHS(8,131)-4:RETURN 

1020  return  ‘ resv  for  path9 

1030  RETURN  ‘resv  for  pathlO 

1040  PHS(11,3)-1:PHS(11,23)-1:PHS(11,59)-1:PKS(11,119)-1 

1045  GOSUB  2780 :GOSUB  27 50 : PHS ( 11 , 1 01 ) -2 : PHS ( 11 , 1 31 ) -4 : RETURN 

1050  PHSU2,4)-1:PHS(12,24)«1:PHS(12,111)-1:PHS(12,60)-1:PHS(12,119)»1 

1053  GOSUB  2750:GOSUB  2780 : PHS ( 12 , 101 ) -2 : PHS ( 12 , 1 32 ) -4 : RETURN 

1060  PHS(13,5)-1:PHS(13,25)-1:PHS(13,112)-1:PHS(13,1I«'-1:G0SUB  2800 

1065  GOSUB  2750 : PHS ( 1 3,1 13 )a2: GOSUB  2500:RETURN 

1070  PHS { 1 4 , 6 )  •  1 : PHS ( 1 4 , 2 6 ) •  1 : PHS ( 1 4 , 1 1 8 )  *  1 : GOSUB  2800:GOSUB  2760 

1072  GOSUB  2900:GOSUB  2750:PHS(14,106)-2:GOSUB  2910:GOSUB  2500:RETURN 
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10S0 
1082 
108S 
1090 
1092 
,  1094 
1100 
:  1102 
!  1110 
1112 
1116 
1120 
1121 
1122 
:  H25 

j  1126 

1130 

1131 

1132 

1133 
,  1140 

1141 

1142 
.  1143 
1  1144 

1145 
'  1146 
1150 
1160 
1170 
1190 
1195 

;  1210 

\  1230 
!  1250 
1260 
1270 
1280 
1290 
1300 
1305 
1320 
i  1322 

1324 

1326 

1328 

1332 

1334 

1336 

1340 

1342 

1344 

1346 

1380 

1382 

1383 

1384 

1385 


PHS(15,6)-l:PHS(15,26)-l:PHS(15,118)-ltGOSUB  2800; COSUB  2760iGOSUB  2500 
GOSUB  2900:PHS(15,106)-2tGOSUB  2750sGOSUB  2910 
PHS(15,44)-ltPHS(15,45)«l:RETURN 
PHS(16,6)-ltPHS(16,26)-l:PHS(16,45)-l:PHS(16,118)-l 

GOSUB  2525:GOSUB  2780sGOSUB  2800:PHS(16,119)-1:GOSUB  2910:PHS(16,106)-2 
GOSUB  2900 1 GOSUB  2750>GOSUB  2760 1 GOSUB  2500:RETURN 

PHS( 17 , 7 )«1 tPHS( 17 , 27 ) *1 t PHS (17 , 118) B1 t GOSUB  2800: GOSUB  2770:GOSUB  2920 
GOSUB  2900:GOSUB  2750:PHS(17,106)-2iGOSUB  2500:RETURN 
PHS(18,7)-ltPHS(18,118)-l:G06UB  2800tPHS(18,47)-ltPHS(18,48)-l:GOSUB  2770 
GOSUB  2900:GOSUB  2750>GOSUB  2920:PHS(18,106)-2:GOSUB  2500 
PHS(18,27)«ltPHS(18,91)»2tRETURN 

PHS(19, 7 )»1 :PHS (19, 27 )«1 jPHS ( 1 9, 118 ) «1 jGOSUB  2800jGOSUB  2770 
GOSUB  2550:PHS(19,48)-1:PHS(19,119)-1:GOSUB  2920 
PHS(19,106)-2:GOSUB  2750tGOSUB  2780:GOSUB  2500tGOSUB  2900 -.RETURN 
PHS(20,8)»1:PHS(20,28)*1:RETURN 
PHS ( 21 , 9) -1 :PHS( 21 , 29 ) -1 t RSTURH 

PHS(22,10)-1:PHS(22,66)«1:PHS(22,67)-1:PHS(22,68)-1:PHS(22,76)-1 
PHS(22,80)“1:PHS(22,81)"1:PHS(22,116)*1:PHS(22,117)«1:PHS(22,120)“1 
PHS(22,96)«2:PHS(22,92)-2:PHS(22,93)-2:PHS(22,30)-1:PHS(22,77)-1 
PHS (22 ,65) -2: PHS (22, 101) “2: GOSUB  2750:RETURN 
PHS(23,ll)*l:PHS(23,56)«l:GOSUS  2800:PHS<23, 78)-l:PHS(23,79)-l 
PHS(23,82)-1:PHS(23,83)-1:PHS(23,84)-1:PHS(23,116)-1:PHS(23,117)-1 
GOSUB  2750:PHS(23,96)«2:PHS(23,96)-2:PHS(23,31)-1:PHS(23,118)-1 
PHS  ( 23 , 92 ) -2 :  PHS  ( 23 , 93 ) -2 :  RETURN 

PHS( 24 ,12)«1 :PHS ( 24, 13 ) "1 iPHS ( 24 , 121 )*1 :PHS( 24 , 131 )a4 :GOSUB  2750 
PHS(24,59)-1:PHS(24,61)«2:PHS(24,62)-1:PHS(24,63)-1:PHS(24,U9)-1 
PHS  ( 2  4 , 1 0 1 )  -  2  ]  PHS  ( 2  4 , 3  3 )  - 1 :  RETURN 

LPRINT  PANM$(111) tLPRINT  TAB(5)  ■  can  be  estimated  as  a  function  of 
LPRINT  PANM$ ( 94 ): LPRINT  *  Or  •  PANM$ ( 95 ) I LPRINT  ■  Or  *  PANM$(101) tLPRINT 
K2TURN 

IP  SCORE ( 2 ) « 1  OR  SCORE ( 3 ) *1  THEN  RETURN 

LPRINT  PANM$(112) tLPRINT  TAB(5)  ■  can  be  estimated  by  three  aethods  in 
PHAS.  Pirst,' tLPRINT  "  Kw  -  *PANM$(113) 

LPRINT  a  Second,  Kw  is  function  oftLPRlNT  PANH$ ( 94 ) 

Lprint  *  Third,  Kw  can  be  eatiaated  from* tLPRINT  panm$(102) 

LPRINT  ■  or  aPANM$(103) 

LPRINT  a  If  soil-water  partition  coefficient  info  is  available  about  soil* 
lprint  *  used  to  characterize  Ksv  or  Ksp  [  Kd(soil)  ],* 

LPRINT  TAB(10)  aKw  -  Ksv  x  Kd(soil)  or  Ksp  s  Kd{soil)a 
LPRINT  a  See  Kd2  aessage  for  estimation  aethods  of  Kd(soil)a 
LPRINT  a  NOTE:  Kvp  can  be  estiaated  by  analog,  replacing  Kw  for  Kvp* 
LPRINT  a  above  and  vice  versa.*: GOTO  1430 
IP  SCORE (4 )-l  THEN  RETURN 

LPRINT  PANM$( 114) tLPRINT  *  can  be  estiaated  by  two  aethods. 

Pirst,  Kpa  -  Kpat  *  faa 

LPRINT  a  where- tLPRINT  PANM$( 106) tLPRINT  PANM$( 41) tLPRINT 
LPRINT  a  Next,  Kpa  -  Kpd  x  (fm/fd),  where  a 
LPRINT  PANM$( 115) tLPRINT  PANM$( 42) tLPRINT 
LPRINT tLPRINT  *  Kpat  can  be  estiaated  as  a  function  of* 

LPRINT  PANM$(95) 

LPRINT  "  or  aPANM$(94) : LPRINT :SCORE( 4 )»1 t RETURN 
LPRINT  *  Estiaation  approaches  for  aPANM$(115) 

LPRINT  *  See  Kpa  writeup  for  estiaation  approaches  to  Kpd.* 

LPRINT  *  Make  the  following  switches:  Kpd  for  Kpm;  fd  for  fm* 

LPRINT  *  and  fa  for  fd.* tLPRINT: GOTO  1320 
IP  SCOR£(7)“l  THEN  RETURN 

LPRINT  PANM$(116) tLPRINT  *  aay  be  estiaated  by  the  quotient  of* 

LPRINT  PANM$(96)  *  divided  by* tLPRINT  PANM$(95) tLPRINT: 

LPRINT  *  Several  estiaation  aethods  are  available  for  each  of  these.* 
LPRINT  *  Hater  solubility  can  be  estiaated  from* tLPRINT  PANM$(94) 

LPRINT  *  Vapor  pressure  can  be  estiaated  from* tLPRINT  PANM$(93): 

LPRINT  *  For  liquids.  Generally  for  solids,* 
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1386  LPRINT  PANM$ (92): LPRINT  *  will  be  needed.  Check  CHMPRP11  for  more  details.* 
1389  LPRINT :SC0RE(7)«1: RETURN 
1400  IP  SCORE ( 8 )  *  1  THEN  RETURN 

1402  LPRINT  PANM$ ( 117 ) :LPRINT  *  can  be  estimated  f roa  molecular  components  and*:Ll 
1409  LPRINT : SCORE ( 8 ) -1 S RETURN 

1430  LPRINT  *  Kd2  message  for  estimation  methods  applicable  to  all  ltd. * : LPRINT 
1440  IP  SCORE ( 1 0 ) *1  THEN  1449 

1443  LPRINT  PANM$ (1 19 ): LPRINT  TAB(10)  *  -  Roc  X  foe  ♦  ( th2/rh2 ) *  t LPRINT 
1446  LPRINT  PANM$( 101): LPRINT  TAB(5)  *  can  be  estimated  as  a  function  of* 

1448  LPRINT  PANM$(95):  LPRINT  *  or  *  PANM$(94) 

1449  LPRINT : SCORE ( 2 ) -1 s SCORE ( 3 ) -1 s SCORE ( 1 0 ) -1 s RETURN 
1460  IP  SCORE(ll )*1  THEN  RETURN 

1462  LPRINT  '  See  Kd2  for  estimation  approaches  to’sLPRINT  PANM$(120) 

1464  LPRINT  *  Substitute  subscript  '3'  for  '2' .’:LPRINT:SCORE(ll)-l:RETURN 
2000  LPRINT  *  PPLV  may  have  organoleptic  ( taste, smell)  constraint  if* 

2005  LPRINT  PANM$(131)  *  is  in  .dat  f ile* t LPRINT: RETURN 

2100  LPRINT  *  PPLV  may  have  adverse  aquatic  biota  effect  constraint  if* 

2105  LPRINT  PANM$(132)  *  is  in  .dat  f ile* : LPRINT: RETURN 

2200  LPRINT  *  PPLV  may  have  adverse  livestock  effect  constraint  if* 

2205  LPRINT  PANM$(133)  *  is  in  .dat  f ile* : LPRINT: RETURN 
2300  IP  SCORE(15)-l  THEN  RETURN 

2305  LPRINT  *  PPLV  may  have  phytotoxic  effect  constraint  if* 

2310  LPRINT  PANM$(134)  *  or* 

2315  LPRINT  PANM$ ( 135 )  *  is  in  .dat  file* :LPRINT: SCORE(15) “1 : RETURN 
2400  RETURN  'reserved  for  unused  values  above  index  136 
2500  POR  K4-101  TO  105 :PHS( Jt ,K% ) “2 : NEXT  K% 

|  2510  POR  K%-134  TO  136:PHS(J%,K%)-4:NEXT  K%: RETURN 
I  2525  POR  K%-43  TO  44 :PHS( J% ,K% ) -1 :NEXT  R%: RETURN 
2550  POR  K%-46  TO  47:PHS(J%,K%)-1 :NEXT  Kt: RETURN 
2750  PHS(J».94)-2:PHS(J%,95)-2:PHS(J%,91)-2:RETURN 

2760  PHS(J%,112)»2:PHS( J%, 113) "1:PHS(J%, 114) »1:PHS(J%, 115) -2: RETURN 
2770  PHS( J%, 112)-2 :PHS{ J% , 113)-1 :PHS{ Jt , 114 )-2:PHS( J% , 11 5 ) “1 : RETURN 
;  2780  PHS( Jt , 61 )-2 :PHS( Jt , 62 )-l :PHS(Jt, 63) -1 : RETURN 
'  2800  PHS( Jt, 56)«2;PHS( Jt , 57 )«1 :PHS ( Jt, 58)-l : RETURN 
2900  PHS(Jt,41)-2:PHS(Jt,42)-2:RETURN 
2910  PHS(Jt,49)-4:PHS(Jt,133)-4:RETURN 
2920  PHS(Jt,50)-4:PHS(Jt,133)-4:RETURN 

2950  INPUT  *  Hit  enter  (return)  to  continue. ...*, ITY$: RETURN 
2960  POR  JJt-1  TO  6 SPRINT  PMT$(  6)  .'NEXT  JJtsRETURN 

3000  IP  ERR* 5 3  AND  ERL-180  THEN  PRINT  *Drive  accessed  ’PMT$(5)*  does  not 
contain  .pth  files* :PRINT  *Try  another  disk  or  move  disk  to  correct 
drive’ :OP$-’fff ’sRESUME  130 

■  3005  IP  ERR-71  AND  ERL-180  THEN  PRINT  'Drive  accessed  ’PMT$(5)’  is  idle. 

!  Please  insert  correct  disk* :OP$-’fff * sRESUME  130 

|  3007  IP  ERR-64  OR  ERR- 7 5  OR  ERR-76  AND  ERL-240  THEN  PRINT  ’Entered  filename 
'  is  defective.  Try  again.  *:RESUME  210 

3010  IP  ERR* 5 3  AND  ERL-240  THEN  PRINT  ’Either  file  is  not  on  line  or  disk  is 
not  correct. ’SPRINT  ’Will  list  .pth  files  on  referred  disk’:OP$»’fff*: 

GOSUB  2950: RESUME  180 

3015  IP  ERR-71  AND  ERL-240  THEN  PRINT  ’Drive  accessed  ’PMT5(5)’  does  not  have 
your  named  filesPRINT  ’WILL  LIST  .PTH  PILES  IP  THEY  EXIST* :OP$-’FFF’ s 
GOSUB  2950 '.RESUME  180 

3020  IP  ERR-71  AND  ERL-800  THEN  PRINT  ’Drive  accessed  ’PMT$(5)’  is  idle. 

Please  insert  correct  disk’ sRESUME  730 
3030  IP  ERR-64  OR  ERR-75  OR  ERR-76  AND  ERL-800  THEN  PRINT  ’Entered  filename 
is  defective,  try  again* sRESUME  730 

3035  IP  ERR-53  AND  ERL-800  THEN  PRINT  ’Apparently,  path  or  disk  drive  cited  is 
not  expected  by  system* SPRINT  "Correct  path/disk  drive  is  *PMT$(5)’ 
try  again. "sRESUME  730 
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In  line  490,  the  array  PAIOEX  is  updated  to  incorporate  data  roles  indicated 
from  each  pathway's  non-zero  PHS  entries.  PHS(Jt.KX)  values  are  either  0,  1, 

2  or  4.  If  the  value  is  1  ,  PANV(Kt)  appears  in  the  Pathway  intake 
equation  (see  Section  A. 7).  If  the  value  is  2  ,  PANV(Kl)  does  not  appear  in 
the  pathway  Jt  intake  equation,  but  can  be  used  to  estimate  a  variable  which 
does.  If  the  value  is  4  ,  PANV(Kl)  is  used  in  a  constraint  analyses  for 
pathway  Jt.  A  restriction  employed  is  that  a  PH$(JX,M)  of  four  can  be  "ORed" 
only  with  a  PAIDEX(Kt)  of  zero  or  four.  Otherwise,  any  combination  of 
PHS(Jt.KS)  OR  PAIDEX(Kl)  values  is  allowed.  The  allowed  results  are: 

PAIDEX  >>  01234 

Result  of  the  logical  PAIDEX(M)  OR  PHS(Jt.KX) 

0  0  1  2  3  4 

PI  1  1  3  3  * 

H  >>  2  2323* 

S  4  4***4 

where  a  "*"  indicates  an  excluded  situation.  PAIDEX(Kt)  has  the  following 
useful  recall  properties: 

o  If  PAIDEX(Kt)  is  odd,  at  least  one  PHS(Jt.Kt)  that  was  "ORed"  with  it 
equaled  1. 

o  If  PAIDEX(Kt)  is  zero,  all  PHS(Jt,M)  that  were  "ORed"  with  it  equaled  0  . 

o  If  PAIDEX(Kt)  .  2  ,  none  of  the  PHS(JX,K2)  "ORed"  with  it  equaled  1  . 

o  If  PAIDEX(Kt)  -  4  ,  at  least  one  PHS(Jt.KX)  "ORed"  with  it  equaled  4. 

The  PAIDEX  array  comprises  the  DUST  for  the  INPUTSU  and  CHMFIL11  data 
processing  routines. 

After  all  pathways  are  so  processed,  there  is  a  "no  path"  selection  test  on 
line  504.  If  IP0T  ■  0  ,  (see  lines  405  and  480),  no  pathways  were  selected, 
and  PATWAY11  queries  you  (line  505-506).  If  you  enter  'yes'  at  line  506  (see 
section  4.5.1  concerning  review  of  the  pathway  descriptions),  the  module 
transfers  control  immediately  to  0PEN11.  If  you  answer  'no',  control  is 
transferred  to  line  410,  so  you  can  again  select  pathways. 

If  IP0T  ■  1  at  line  504,  execution  is  transferred  to  line  515,  and  the  hard¬ 
copy  printout  routine  starts.  First,  global  variables  (BW,  BWc  ,  DT.and  DTc) 
are  processed.  At  line  570,  a  pathway  loop  starts,  and  if  IPATH(Jt)  ■  1  , 
the  string  PMP$(JX)  is  printed.  At  line  600,  a  nested  loop  for  variables 
indexed  from  Kt  ■  3  to  130  is  entered.  In  this  loop,  if  PHS(Jl,Kt)  *  1  ,  the 
corresponding  PANM$(K<)  is  printed  as  the  name  of  a  main  variable. 

At  line  650,  the  variable  loop  "FOR  Jl-111  TO  125"  is  entered.  If  PAIDEX(Jt) 
is  odd,  a  specific  subroutine  is  entered  (line  665)  which  provides  information 
about  how  PHAS  can  estimate  the  variable.  Before  a  printout  sequence 
which  could  be  duplicated  commences,  SCORE(Jf)  is  tested.  If  unity,  the 
sequence  is  by-passed.  At  the  end  of  a  printout  sequence,  SCORE(Jl)  is  set 
equal  to  one. 
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At  line  676,  a  loop  for  constraint  data  starts.  If  PAIDEX(Jt)  ■  4  ,  a  sub¬ 
routine  is  entered  (line  679)  for  printouts  of  constraint  information.  Last, 
a  message  concerning  the  Type  2  constraint  is  printed  out.  PMT$(7)  determines 
whether  the  message  at  line  684  or  686  is  printed. 

The  storage  routine  starts  at  line  710  with  your  input  to  IFT.  If 
IFT  «  1  ,  control  transfers  to  line  860.  Otherwise,  you  enter  a  filename 
PMT$(11)  at  line  730.  If  there  are  no  name  errors,  the  filename  string  FILLS 
is  developed  at  line  800.  Then  the  arrays  IPATH  and  PAIDEX  and  the  string 
PMT$(7)  are  written  to  the  file  (line  820-830).  The  file  name  is  echoed  back 
at  line  850,  and  after  transferring  the  FILLS  string  to  PMTS(ll),  execution 
proceeds  to  line  860. 

A. 5  INPUTS11 

The  source  code  is  in  Figure  A-4.  The  array  DATDEX(170)  holds  the  DUST  within 
the  module.  The  major  operational  mode  display  is  at  lines  70-90,  and  your 
input  is  the  variable  IFTA.  If  you  select  *1',  line  105  tests  whether  PANV(l) 
is  non-zero.  If  so,  line  105  routes  execution  to  line  70  for  another  mode 
input.  If  not,  line  110  directs  execution  to  line  240,  which  informs  of  the 
last  down-loaded  .LDS  file.  Line  247  allows  you  to  either  continue 
processing  on-line  data  or  to  return  to  line  70  to  select  another  mode 
operation. 

If  you  selected  '2'  or  '3'  as  input  to  IFTA,  execution  goes  to  line  120,  the 
option  to  view  .LDS  files.  At  line  170  is  the  option  to  use  the  default  file 
DEFALVA.LDS.  A  "yes"  response  equates  the  string  FILS  to  PMT$(8)  (line  190). 
Otherwise  at  line  200,  you  are  prompted  to  supply  FILS,  the  name  of  the  file 
to  be  down- loaded.  At  line  220,  the  file  is  down- loaded  and  its  contents 
become  the  first  90  elements  of  the  PANV  array. 

At  line  225,  the  down-loaded  filename  is  included  within  PMTS(12).  If  you  are 
in  the  "load-and-go"  mode,  program  execution  skips  to  line  650  (see  below). 
Otherwise,  execution  proceeds  to  line  240,  which  was  described  above.  Next, 
the  "DATA  USE  STATUS  TABLE  (DUST)  LOADING  PROCESS  MENU"  is  encountered  (line 
250-290).  Three  options  are  displayed;  your  response  is  input  to  IFT.  If 
IFT  *  1  ,  line  325  tests  if  PAIDEX(126)  ■  0  .  If  so,  this  indicates  some 
error  with  the  on-line  PAIDEX  array,  and  line  260  is  accessed  for  another 
selection.  Otherwise,  the  first  90  elements  of  PAIDEX  are  loaded  into 
DATDEX(l)  through  DATDEX(90)  at  line  330.  If  IFT  -  2  ,  the  .PTH  file  for 
down-loading  to  the  DATDEX  array  is  specified  at  380  after  an  option  to  view 
.PTH  files  (lines  350-370).  At  lines  420-430,  the  170  numerical  values  in  the 
selected  .PTH  file  are  down-loaded  to  DATDEX.  Since  the  first  30  entries 
down-loaded  correspond  to  the  the  IPATH  array,  a  second  loop  Is  entered  where 
the  value  in  DATDEX(31)  is  transferred  to  DATDEX(l) ,  and  so  forth,  until 
DATDEX(120)  is  so  processed  (line  440).  If  IFT  «  3  ,  the  line  415  assigns 
the  down-loaded  filename  as  DEFAULT. PTH.  Since  DATDEX  is  not  a  common 
variable  array,  the  .PTH  information  in  DATDEX  is  NOT  retained  on-line  after 
completion  of  INPUTS11. 

The  module  enters  the  data  review  loop  at  line  480.  A  given  element  Jt  is 
processed  if  PANMS(JI)  is  not  a  null  (empty)  string.  The  file  DEFAULT. PTH 
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5  COMMON  PANM$ ( ) ,PANV( ) ,PMT$ ( ) f PAIDEX( ) , I PATH ( ) , LIMIT( ) 

10  REM  INPUTS 11  VERSION  OP  8/8/89 
15  OPTION  BASE  1 
20  ON  ERROR  GOTO  880 
30  DIM  DATDEX( 170 ) 

65  CLS : PRINT  WELCOME  TO  MON-CHEMICAL  DATA  PROCESSING  SUBROUTINE  (INPUTS11)  •* 

70  PRINT  TAB{10)  «*«»*•*****  MAJOR  MODE  OP  OPERATION  MENU  *********** 

75  PRINT  *  Select  *1'  to  process  on-line  inforaation  (in  prograa  aeaory)." 

80  PRINT  *  Select  '2'  to  use  a  stored  . LDS  file  in  a  'load  and  go'  aode." 

90  INPUT  *  Select  '3*  to  aodify  a  stored  .LDS  file.  Enter  selection:  *,IFTA 

100  IP  IPTA  <>1  AND  IPTA  <>2  AMD  IPTA  <>  3  THEN  PRINT  PMT$(2):GOTO  70 
105  IP  IFTA-1  AND  PANV(l)-0  THEN  PRINT  "No  valid  on-line  info, 
select  another  option. ":GOTO  70 
110  IP  IPTA-1  THEN  240 

120  PRINT  TAB(5)  PMT$ (1) : INPUT  ■  Do  you  want  a  listing  of  files?  B,ANI$(1) 
130  IP  ANI$ (1 )<>  "no"  AND  ANIJ(l)  <>  "yes"  THEN  PRINT  TAB(5)  PMT$(2):GOTO  120 
140  IP  ANI$(l)«*no"  THEN  170  ELSE  PILES  PMT$ ( 5)+"*. Ids" :GOSUB  670 
170  PRINT  TAB(5)  PKT$ ( 1 ): INPUT  •  Use  default  file?  ",ANI$(2) 

180  IP  ANI$(2)o"no*  AND  ANI$(2)<>*yes"  THEN  PRINT  TAB(5)  PMT$(2):GOTO  170 

190  IF  ANI$(2)-"yes"  THEN  FIL$-PMT$(B) :GOTO  220 

200  INPUT  '  Enter  file  name  including  .Ids  extension:  *,PIL$ 

205  IP  LEN(PIL$)>12  THEN  PRINT  "Name  too  longtll  Try  again. ":GOTO  200 
210  IP  RIGHTS (PIL$, 4 )<>* . Ids*  THEN  PRINT  "Wrong  file  type!!!  Try  again": 

GOTO  170 

220  OPEN  PMT$(5)+PIL$  FOR  INPUT  AS  «l:POR  J%-1  TO  90:IMPUT  81,PANV(J%): 

NEXT  J«: CLOSE  fl 

j  225  PMT$(12)-PMT$(5)*FILS:IF  IFTA-2  THEN  650 

!  240  PRINT  *  Last  down-loaded  file  was . ":PRINT  •  "PMT$(12)*  .  "Pmt$(1) 

1  243  PRINT  "  Tou  may  have  aodified  contents  since  down- loading. 

i  Continue  (yes/no)?": INPUT  ANY$ 

I  245  IP  ANY$<>"yes"  AND  ANY$o"no*  THEN  PRINT  PMT$(2):GOTO  240 
|  247  IP  ANY$-*no*  THEN  GOTO  70 

250  CLS: PRINT  "***•  DATA  USE  STATUS  TABLE  (DUST)  LOADING  PROCESS  MENU  ****** 

.  260  PRINT  TAB( 5)  "Tou  will  need  a  DUST  to  process  data.  Select  1  of  3  options." 
:  270  PRINT  "  Select  '1'  to  use  the  on-line  scenario  DUST." 

275  PRINT  "  Select  '2‘  to  use  the  DUST  froa  a  stored  '.PTH'  file." 

277  PRINT  "  The  progrsa  will  proapt  you  for  a  file  naae." 

280  PRINT  "  Select  '3'  to  create  a  new  .LDS  file  for  storage  or  peruse  all  " 

290  INPUT  "  data  in  a  .LDS  file.  Enter  selection:  ",ipt 

310  IP  I FT  <>1  AND  I FT  <>2  AND  I FT  <>3  THEN  PRINT  PMT$(2):GOTO  260 
320  ON  I FT  GOTO  325,350,415 

325  IP  PAIDEX(126)-0  THEN  PRINT  "CAUTION!  Tou  don't  have  a  valid  DUST  on  line*: 
GOTO  260 

330  FOR  J%-1  TO  90lDATDEX(Jt)-PAIDEX(J%) {NEXT  J»:GOTO  475 

350  PRINT  TAB(5)  PMT$ ( 1 ): INPUT  "  Do  you  wish  to  see  .PTH  files?  ",OP$ 

360  IP  OP$<>*yes*  AND  OP$«"no"  THEN  PRINT  PMT$(2):GOTO  350 
370  IP  OP$-"no*  THEN  380  ELSE  PILES  PMT$(5)*"*.pth* iGOSUB  670 
380  INPUT  "  Input  naae  of  file  with  extension  '.pth':  ",FIL$ 

400  IP  LEN(FIL$)>12  THEN  PRINT  "Naae  too  long!!!  Try  again." iGOTO  380 
410  IP  RIGHT$(FIL$,4)o".pth"  THEN  PRINT  PHT$(4):GOTO  380 
415  IP  IFT-3  THEN  FIL$-"default.pth" 

420  OPEN  PMT$(5)+FIL$  FOR  INPUT  AS  #2 

430  FOR  J%-1  TO  170: INPUT  |2 ,DATDEX( J%) INEXT  J8:CLOSE  82 
440  FOR  J%-1  TO  90:DATDEX( J%)-DATDEX(J%*30) :NEXT  J%:GOTO  475 

475  PRINT  ****************  DATA  REVIEW  AND  MODIFICATION  ROUTINE  ************** 
480  FOR  J«-l  TO  90: IP  LEN(PANM$(J%) )<1  THEN  560: IP  IPT-3  THEN  510 
500  IP  DATDEXf J%)-0  THEN  560 

510  PRINT  TAB(5)  «•*•******•••*••*• {PRINT  TAB(5)  PANM$(J%)  "  -  *PANV(J%) 

515  IP  DATDEX(J%)-1  OR  DATDEX(J«)-3  THEN  PMT$(16)-  "Main  Input  Variable* 

ELSE  IP  DATDEX( J%)-2  THEN  PMT$(16!-"Itea  aav  be  needed  to  estiaate  input 
variable"  ELSE  IP  DATDEX(J%)-4  THEN  PMT$(16)-"Used  in  constraint  analysis." 

516  PRINT  "  Status  in  current  analysis  ist  *PMT$(16) 
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520  PRINT  *  inter  '1*  to  accept  current  value  and  mov«  on  to  next  variable* 

522  INPUT  *  enter  '2'  to  change  value.  Inter  choice...*, OPT 
530  IP  OPT-1  THEN  560  ELSE  IP  OPT<>2  THEN  PRINT  PMT$ ( 2 )  i GOTO  510 
550  INPUT  '  Enter  reviaed  value. ..*,PANV(J«)tOOTO  510 
560  NEXT  J% 

565  OPEN  *atorelt.CBp*  FOR  INPUT  AS  111  FOR  J«-l  TO  lOtINPUT  #1,BLURB$(J%)  I 
PRINT  BLURBS (J%) (NEXT  J%:CLOSE  #1 
590  INPUT  *  Enter  your  selection!  *,  IFT 

600  IP  I  FT  <>0  AND  IFT<>1  AND  IFT  <>2  THEN  PRINT  TAB(5)  PMT$(2)(GOTO  565 
610  ON  IFT+1  GOTO  650,612,615 
(  612  PMT$(13)-PKT$(12)]GOTO  640 

‘  615  INPUT  *  Please  enter  filename  (5  alphanuma  or  leas,  no  punct.).  *,FLT$ 

617  IF  LEN(FLT$)>8  THEN  PRINT  'Caution,  only  8  characters  in  filename* (GOTO  615 

618  IF  LEN(FLT$)-0  THEN  PRINT  *No  filenaae  noted,  try  again* tGOTO  615 
j  620  PMT${13)-PMT$(5)*FLT$**.lds* 

l  640  IF  PWr$(13)-PWr$(5)*PMT$(8>  OR  PMT$(13)-PICr$(5)+*defalvc.lds*  THEN 

PRINT  *Default  file  vriteover  not  a 1 loved.  Try  another  naae'iGOTO  615 

641  IF  ASC(FLT$)<91  THEN  PRINT  *  Please  don't  use  capital  letters!* iGOTO  615 

642  OPEN  PMT$ (13)  FOR  OUTPUT  AS  f3 

645  FOR  Jt-1  TO  90tWRITE  I3,PANV(J%) iNEXT  J%i CLOSE  83 
650  PRINT  TAB(5)  *Tou  dovn-loaded  file  *PHT$(12)sIF  IFTA-2  THEN  656 
652  PRINT  TAB(5)  *Tou  have  stored  in  file  ...*PMT$(13)  *.  If  unnamed,  this 
session's* (PRINT  TAB(5)  ‘results  are  only  in  on-line  storage.* 

,  656  GOSUB  670(LIMIT(3)-10(LIMIT(4)-LIHIT(4)  OR  LIMITO) 

:  660  CLS:CHAIN  'openll',680 

:  670  INPUT  *  Kit  enter  (return)  key  to  continue. ...  * ,ANI$ (RETURN 
:  680  IP  SRR-53  AND  ERL-140  THEN  PRINT  'System  installed  to  access  *PMT$(5): 

PRINT  'Either  redo  INSTALL  or  move  data  disk* (RESUME  120 
:  690  IF  ERL-220  AND  ERR-53  OR  ERR-64  OR  ERR-75  OR  ERR- 7 6  THEN  PRINT  'Either  file 
is  not  on  disk  or  disk  is  in  vrong  drive.* (PRINT  'System  installed  to 
access  *PMT$(5) (PRINT  'File  search  will  be  attempted*(ANI$(l)-*yes*( 

RESUME  X  4  0 

692  IF  ERR-53  AND  ERL-370  THEN  PRINT  ‘Either  file  is  not  on  disk  or  disk  is  in 
vrong  drive. ‘(PRINT  'System  installed  to  access  *PMT$(5) (PRINT  ‘File  search 
vill  be  attempted* (RESUME  3S0 

693  IF  ERL- 4 20  AND  ERR-53  OR  ERR-64  OR  ERR-75  OR  ERR- 7 6  THEN  PRINT  *  Incorrect 
name,  please  viev  directory* (OP$-*yes* (RESUME  370 

)  696  IF  ERL-642  AND  ERR-53  OR  ERR-64  OR  ERR-75  OR  ERR-76  THEN  PRINT  *  Incorrect 
j  format  to  name  *FLT$*  try  again. '(RESUME  615 
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forces  all  DATDEX  elements  to  be  reviewed  (line  480).  If  IFT  <>  3  ,  line  500 
is  executed,  which  skips  over  any  element  when  DATDEX(Jt)  ■  0  . 
Otherwise,  the  Jttri  elements  of  PANMS  and  PANV  are  displayed  (line  510),  along 
with  a  statement  of  use  (see  Section  4.5.2).  For  each  displayed  datum,  the 
option  is  presented  to  accept  the  given  value  or  change  the  value  (line  520- 
550). 

After  the  data  review  loop  is  completed,  the  "STORAGE  DISPOSITION  MENU"  is 
displayed.  The  file  ST0REIT.CMP  is  read  in  to  show  options  (lines  565);  your 
option  is  placed  in  IFT  (line  590).  For  no  off-line  storage,  IFT  *  0  ,  and 
control  passes  to  line  650.  If  IFT  «  1  ,  line  612  sets  PMTS(13)  to  PMT$(12), 
the  device  and  name  for  the  down-loaded  file  (this  algorithm  allows  you  to 
"overwrite"  the  down-loaded  .IDS  file).  Otherwise,  at  line  615,  you  input 
FITS,  the  filename  for  storage,  which  at  line  620  is  used  to  construct 
PMT$(13) .  Line  640  checks  to  see  if  FITS  is  either  "defalva. Ids"  or 
"defalvc. Ids";  line  641  checks  if  the  first  letter  in  FITS  is  uppercase.  If 
any  of  these  errors  occur,  you  are  informed  of  this,  and  sent  back  to  line  615 
to  provide  a  different  name.  These  algorithms  should  prevent  overwriting  the 
two  default  files  for  most  situations. 
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With  a  correct  filename,  the  first  90  elements  of  PANV  are  written  to  the  file 
PMT$(13)  (line  645).  The  down-loaded  filename,  PMT$(12),  is  echoed  back  (line 
650).  If  you  are  not  in  the  “load  and  go“  mode,  line  652  identifies  the 
stored  file  (if  any).  At  line  656,  LIMIT(4)  is  “0Red“  with  LIMIT(3),  which 
has  the  value  10.  This  places  ' 1*  In  the  tens  position  of  LIMIT (4) .  Then, 
program  control  passes  back  to  0PEN11. 

A. 6  CHMFIL11 

The  code  for  CHMFIL11  is  in  Figure  A-5.  The  initial  steps  of  CHMFIL11  are 
similar  to  those  shown  in  INPUTS11  with  the  following  noteworthy  differences: 

o  The  default  filename  is  assigned  to  PMT$(9);  see  line  1015 

o  DATDEX  is  declared  common  for  purposes  of  interactions  with  CHMPRP11.  It 
contains  the  DUST  for  PANV  elements  processed  in  CHMFIL11,  and  here  is  a  50- 
element  array. 

o  CHMFIL11  processes  the  elements  PANV(91)  to  PANV(140).  There  is  an  offset 
of  90  between  DATDEX  and  PANV  in  this  module's  algorithms.  When  an  on-line 
DUST  is  used,  line  1305  duplicates  PAIDEX(91)  through  PAIDEX(140)  in 
DATDEX(l)  through  DATDEX(50).  If  a  DUST  is  down-loaded  (lines  1360-1365),  the 
array  DUMDEX  is  used  to  store  the  170  numerical  data  from  the  down-loaded  .PTH 
file,  and  at  line  1370,  the  last  50  data  are  sequentially  assigned  to  DATDEX. 
If  all  PANV  are  to  be  viewed,  the  file  DEFAULT. PTH  is  designated  to  be  down¬ 
loaded  (line  1350). 

o  Prior  to  exit  from  CHMFIL11  to  0PEN11,  LIMIT(4)  is  “ORed"  with  LIMIT(3), 
which  equals  100.  This  places  a  “1“  in  the  hundreds  column  of  LIMIT(4). 

o  The  COMMON  string  variable  array  STATDEX$(50)  is  used  to  decide  which 
subroutines  in  CHMPRP11  contain  only  informational  messages  and  which  also 
contain  estimation  routines.  STATDEXJ  elements  are  either  “yes“  or  “no",  and 
these  strings  determine  the  message  shown  at  line  2056. 

The  data  modification  routine  in  CHMPRP11  is  more  complex  than  that  in 
INPUTS11,  and  involves  a  "non  FOR  -  NEXT"  loop.  The  routine  starts  at  line 
1900,  where  the  counter  CTL  initially  equals  1  .  Then  the  contents  of  the 
file  STATDEX.CMP  are  down-loaded  to  the  array  STATDEXI.  Line  2000  causes 
display  of  the  routine  heading.  At  lines  2030  and  2040,  two  conditions 
directing  to  line  2200  are  provided:  If  PANM$(CTL*90)  is  not  defined,  and  if 
DATDEX(CTL)  is  zero.  However,  If  IFT  ■  3  (assigned  at  line  1130),  the  second 
condition  test  is  bypassed.  At  line  2200,  CTL  is  increased  by  one.  Line  2200 
also  checks  If  CTL  ■  51  ;  If  so,  the  loop  is  completed.  If  neither  bypass  Is 
executed,  the  variable  name,  PANM$(CTL+90),  and  value,  PANV(CTL+90),  is 
displayed  (line  205U)  along  with  its  possible  role  in  the  scenario  (line  2051- 
2052). 

You  have  three  data  processing  options,  which  is  the  variable  LUT  (lines  2054- 
2055).  Line  2065  checks  if  LUT  is  one  (accept  PANV(CTL490));  if  so,  line  2200 
is  accessed.  If  LUT  ■  2  ,  line  2090  requests  a  manual  input  of  PANV(CTL*90) . 
If  LUT  «  3  ,  LIMIT(5)  is  set  equal  to  one,  LIMIT(6)  to  CTL,  and  CHMPRP11  is 
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S  COMMON  PANM$  ( )  ,PAIDEX( )  ,PANV( )  ,  PMT$  (  ) ,  I  PATH  (  )  ,  LIMIT  (  )  , DATDEX(  )  ,  STATDEX$  ( ) 

10  REM  CHMFIL11  REVISED  9/5/89 
15  OPTION  BASE  1 
20  ON  ERROR  GOTO  5550 

25  DIM  DUMDEX(170),DATDEX(50),STATDEX$<50) 

30  CDS  SPRINT  ***  WELCOME  TO  THE  CHEMICAL  DATA  PROCESSING  MODULE  (CHMPIL11)  **** 
35  PRINTsPRINT  ***************  MAJOR  MODE  OF  OPERATION  MENU  **•**•*•****•*•• 

40  PRINT  a  Select  '1'  to  process  on-line  information  (in  program  memory).* 

SO  PRINT  *  Select  *2'  to  used  stored  .DAT  file  in  a  'load  and  go'  mode.* 

55  INPUT  *  Select  *3'  to  modify  a  stored  .DAT  file.  Enter  selections  *,IFTA 
60  IF  I FT A  <>1  AND  IFTA  <>2  AND  IFTA<>3  THEN  PRINT  PMT$(2)sGOTO  35 
65  IF  IFTA»1  AND  PANV(126)*0  THEN  PRINT  'No  valid  on-line  infot 
Select  another  option* sGOTO  35 
70  IF  IFTA-1  THEN  1110 

100  PRINT  PMT$ (1 ) s INPUT  *  Do  you  vant  listing  of  chemical  files?  *,  OP$ 

200  IF  OPS  <>  *no*  AND  OP$  <>  *yes*  THEN  PRINT  PMT$(2) sGOTO  100 

250  CHECKIT$-PMT$(5)***.dat*sIF  OP$-*no*  THEN  1005  ELSE  FILES  CHECKITS 

1005  PRINT  PMT$(1 ) s INPUT  *  Use  default  chemical  file?  *,OP$ 

1010  IF  OPS  <>  *yes*  AND  OPS  <>  *no*  THEN  PRINT  TAB(5)  PMTS<2) sGOTO  1005 
1015  IF  OP$-*yes"  THEN  FILS“PMT$(9) sGOTO  1050 

1025  INPUT  *  Enter  chemical  data  filename  including  '.dat'  extensions  ",FIL$ 

1035  IF  L£N(FIL$)>12  THEN  PRINT  *Too  many  characters!  Try  again*sGOTO  1010 
1040  IF  RIGHTS (FILS, 4)<>*. dat*  THEN  PRINT  PMT$(4)sGOTO  1025 
1050  OPEN  PMT$(5)+FIL$  FOR  INPUT  AS  #3 

1060  FOR  J%-1  TO  50s INPUT  #3,PANV(J%+90) sNEXT  J%sINPUT  f 3,PMT$(20) sCLOSE  #3 
1070  PMTS(14)-PMTS(5)+FIL$sIF  IFTA-2  THEN  3900 

1080  PRINT  "  Last  dovn- loaded  file  was . *:PRINT  "  *PMT$(14)*  .  * 

1090  PRINT  *  You  may  have  modified  contents  since  dovn-loading. 

Continue  (yes/no) ?*s INPUT  ANY$ 

1095  IF  ANY$<>*yeS*  AND  ANY$«"no*  THEN  PRINT  PMTS(2) sGOTO  1080 
1100  IF  ANYS-*no*  THEN  GOTO  35 

1110  CLS SPRINT  *******  DATA  USE  STATUS  TABLE  (DUST)  LOADING  PROCESS  MENU  ***** 
1112  PRINT  *  You  vill  need  a  DUST  to  process  data.  Select  1  of  3  options.* 

1115  PRINT  "  Select  *1'  to  use  the  on-line  scenario  DUST.* 

1117  PRINT  *  Select  *2'  to  use  the  DUST  from  a  stored  .PTH  file* 

1120  print  *  The  program  vill  prompt  you  for  a  file  name.* 

1121  PRINT  *  Select  '3'  to  create  a  nev  .DAT  file  for  storage  or  peruse" 

1130  INPUT  *  all  data  in  a  .DAT  file.  Enter  selections  *,IFT 

1135  IF  I FT  <>1  AND  I FT  <>2  AND  I FT  <>3  THEN  PRINT  PMT$(2) sGOTO  1112 
1140  ON  I FT  GOTO  1300,1310,1350 

1300  IF  PAIDEX(126)-0  THEN  PRINT  "CAUTION!  You  do  not  have  a  valid  index  on 
line. *  sGOTO  1112 

1305  FOR  J*-l  TO  50sDATDEX{J%)*PAIDEX{J%+90) sNEXT  JBsGOTO  1900 
1310  PRINT  TAB(5)  PMT$(1)  sINPUT*Do  you  vant  to  see  .PTH  files?  *,OP$ 

1315  IF  OPS  <>  *yes*  AND  OP$  <>  *no*  THEN  PRINT  PMT$(2) sGOTO  1310 
1320  IF  OP$-*no*  THEN  1330  ELSE  FILES  PMT$(5)***.pth*sGOSUB  4500 
1330  INPUT  "Input  name  of  file  vith  extension  ' .pth'  ";FILE$ 

1335  IF  LEN(FILE$)>12  THEN  PRINT  'name  too  long,  try  again*sGOTO  1330 
1340  IF  RIGHTS (FILE$, 4)  <>  *.pth*  THEN  PRINT  PMTS(4) sGOTO  1330 
1350  IF  I FT* 3  THEN  FILES-’def ault .pth* 

1360  OPEN  PMT$(5)+PILE$  FOR  INPUT  AS  #1 

1365  FOR  J%-1  TO  170s  INPUT  #1 ,DUMDEX(J% ) sNEXT  J%:CLOSE  #1 

1370  FOR  J%-1  TO  50s  DATDEX( J%)*DUMDEX( J%+120) sNEXT  J*sGOTO  1900 

1900  CTL-lsOPEN  *statdex.cmp"  FOR  INPUT  AS  #1 

1910  FOR  J%«1  TO  50 : INPUT  fl,STATDEX$(J%) sNEXT  JBsCLOSE  #1 

2000  PRINT  ••****•***•••**  DATA  REVIEW  AND  MODIFICATION  ROUTINES  ************** 
2030  IF  LEN(PANM$(CTL+90) )<1  THEN  2200:IF  IFT-3  THEN  2050 
2040  IF  DATDEX(CTL)-0  THEN  2200 

2050  PRINT  TAB(5)  •*********•••’ sPRINT  TAB (2)  PANMS (CTL*90)  *  -  *PANV(CTL*90) 

2051  IF  DATDEX(CTL)-1  OR  DATDEX(CTL) *3  THEN  PMT$ (16)-*Main  input  variable* 

ELSE  IF  DATDEX(CTL)-2  THEN  PMTS (16)** I tem  may  be  needed  to  estimate  input 
variable*  ELSE  IF  DATDEX(CTL)*4  THEN  PMT$(16;**Used  in  constraint  analysis* 

Figure  A-5.  Source  Code  for  CHMFIL11  (page  1  of  2  pages) 
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2052  PRINT  •  Status  In  scenario  i»i*PKT$(16) 

2053  PRINT:  PRINT  a  Select  '1'  to  accept  value.* 

2054  PRINT  *  Select  *2'  to  insert  nev  value.* 

*  2055  PRINT  *  Select  '3'  to  enter  estimation  routine  for  value 
,  2056  IF  STATDEX$ ( CTL ) • *  yes  *  THEN  PRINT  *  Estimation  routine  available.*  ELSE 
.  PRINT  *  Information  only  available.* 

2057  PRINTUNFUT  *  Enter  your  selection!  *,LUT 

2062  IF  Lt7T<>l  AND  LUT<>2  AND  LUT<>3  THEN  PRINT  PMT$(2)iOOTO  2053 

2065  IF  LUT-1  THEN  2200 

2090  IF  LUT-2  THEN  INPUT  *  Input  revised  value.*;  PANV(CTL«90) iGOTO  2050 
2100  IF  LUT-3  THEN  LIMIT(5)-llLIMIT(6)-CTLlCHAIN  *chmprpll* 

2200  CTL-CTL+ltlF  CTL<51  GOTO  2030 

2210  PRINT  TAB(5)  *Xs  chemical  name  *PHT$(20)*  ok?  *iINPUT  OP$ 

.  2215  IF  OP$-*ye»*  THEN  3800 
2220  IF  OPS  <>  "no*  THEN  PRINT  PHT$(2)  iGOTO  2210 
2230  LINE  INPUT  'Input  revised  name:  *,PMT$(20) iGOTO  2210 
3800  OPEN  *storeit.cmp*  FOR  INPUT  AS  fltFOR  J%-1  TO  IOiINPUT  #1 , BLURBS (J% ) i 
PRINT  BLURBS (J%)lNEXT  J%: CLOSE  fl 
3830  INPUT  *  Enter  your  selection!  *,IFT 

3840  IF  IFT<>0  AND  IFT<>1  AND  IFT<>2  THEN  PRINT  PMT$(2)  iGOTO  3800 
3850  ON  IFT+1  GOTO  3920,3855,3860 
3855  PMT$(15)-PMT$(14)iGOTO  3880 

3860  INPUT  *  Please  enter  filename  (8  alphanums  or  less, no  punct.)  *;FIL$ 

3862  IF  LEN(FiL$)>8  THEN  PRINT  'Only  8  characters  in  filename.  Try  again*! 

GOTO  3860 

;  3864  IF  LEN(FIL$)-0  THEN  PRINT  *No  filename  noted,  try  again* iGOTO  3860 
i  3870  PMT$(15)-PKTS(5)>FILS**.dat* 

I  3880  OPEN  PHT$(15)  FOR  OUTPUT  AS  f2 

i  3890  FOR  J%-1  TO  50s WRITE  f2,PANV(J%+90) sNEXT  J»! WRITE  #2,PMT$(20) iCLOSE  #2 
;  3900  PRINT  '  Tou  down- loaded  file  *PMT$(14)iIF  IFTA-2  THEN  GOTO  3920 
3902  PRINT  *  Tou  stored  in  file  ...*  PMT$(15) 

.  3905  PRINT  '  If  unnamed,  session's  results  are  on-line  until  over-vrltten.* 

:  3920  LIM1T( 3 ) "1 00 l LIMIT ( 4 ) "LIMIT ( 4 )  OR  LIMIT(3) iGOSUB  4500 
I  4000  CLSiCHAIN  *openll*,680 

i  4500  input  *  Press  enter  (return)  key  to  continue. .. .*,IKT$i RETURN 
5000  CTL«LIMIT(6) iGOTO  2050 

5550  IF  ERR-53  AND  ERL- 300  THEN  PRINT  'System  installed  to  access  *PMT$(5)i 
PRINT  'Either  redo  INSTALL.EXE  or  move  data  disk* ! RESUME  100 
5555  IF  ERL-1050  AND  ERR-53  OR  ERR- 6 4  OR  ERR-75  OR  ERR-76  THEN  PRINT  'Either 
file  is  not  on  disk  or  disk  is  in  wrong  drive.* iPRINT  'System  installed 
to  access*PMT$<5) iPRINT  'File  search  to  be  attempted* !OP$-*f f *t RESUME  300 
5560  IF  KRL-1360  AND  ERR-53  OR  ERR-64  OR  ERR-75  OR  ERR-76  THEN  PRINT  "Either 
file  is  not  on  disk  or  disk  is  in  wrong  drive. *«PRINT  'System  installed 
to  access*PHT$( 5) iPRINT  'File  search  to  be  attempted* iOP$-*ff”tRESUME  1320 
.  5570  IF  ERL-38B0  AND  ERR-53  OR  ERR-75  OR  ERR-76  THEN  PRINT  'Incorrect  format  to 
i  name,  try  again* iRESUME  3860 

Figure  A-5.  Source  Code  for  CHHFIL11  (page  2  of  2  pages). 


accessed  (line  2100).  If  CHMPRP11  produces  an  estimate  of  PANV(CTU90) ,  when 
CHMFIL11  is  re-entered  (line  5000),  the  estimate  will  be  PANV(CTU90).  If  an 
estimate  Is  not  computed  in  CHMPRP11,  PANV(CTL+90)  is  unchanged.  Line  5000 
"resets"  CTL;  since  LIMIT(6)  Is  common,  its  value  is  retained  when  CHMPRP11 
chains  back  to  CHMFILU.  Control  Is  unconditionally  transferred  to  line  2050 
where  the  variable  name  and  value  are  again  displayed  for  further  processing. 

After  this  routine  Is  complete,  the  storage  disposition  algorithm  is  executed, 
which  parallels  that  of  INPUTS11.  PHT$( 14)  contains  the  name  of  the  last 
down-loaded  file  from  CHMFILll  in  the  current  session,  and  PMT$(15)  contains 
the  name  of  the  file  selected  to  store  processed  data  (if  so  desired).  As 
discussed  above,  line  3920  carries  out  the  "OR"  operation  with  LIMIT (4) ,  and 
at  line  4000,  control  returns  to  0PEN11. 
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A. 7  C0MPUT11 


The  code  for  C0MPUT11  is  in  Figure  A-6.  Several  arrays  are  dimensioned  for 
exclusive  use  in  C0MPUT11.  These  are: 

o  INTAKE,  with  41  elements.  Elements  1-40  hold  computed  intakes  due  to  the 
presence  of  1  mg/l  pollutant  in  water  or  1  mg/kg  pollutant  in  soil.  Elements 
1-30  correspond  to  pathways.  Element  41  sums  the  40  intakes. 

o  PROMPT,  with  40  elements.  Short  pathway  descriptions  are  placed  in  this 
array  (see  lines  55-85). 

o  C2DEX,  with  40  elements.  Each  element  corresponds  to  an  element  in  the 
INTAKE  array.  C2DEX  indexes  whether  a  pathway  or  portion  of  a  pathway  is 
subject  to  a  Type  2  constraint  status  at  the  PPLV  concentration  (see  Section 
A. 7. 3). 

o  CTAKE  and  NTAKE,  each  with  41  elements.  These  arrays  are  used  in  the  Type 
2  constraint  analysis  to  keep  track  of  constrained  and  non-constrained  intakes 
needed  to  adjust  the  PPLV. 

o  BLURBS,  with  20  elements,  used  to  hold  down-loaded  file  information. 

Execution  starts  at  line  315,  where  LIMIT (4)  is  tested  to  see  if  there  is  a 
non-zero  number  in  the  digits  column.  If  not,  control  passes  to  line  350. 
Otherwise,  the  contents  of  a  .PTH  file  are  on-line,  and  this  information  is 
used  if  you  respond  "yes"  at  line  320.  Then  control  passes  to  line  510.  If 
no  information  is  on-line  or  on-line  information  is  not  wanted,  the  option  to 
review  .PTH  files  occurs  at  line  350.  At  line  400,  you  supply  a  filename 
(PMT$(11)  for  down-loading,  and  at  lines  440  and  450,  the  contents  of  file 
PMTS ( II)  are  down-loaded  into  the  IPATH  and  PAIDEX  arrays,  and  the  string 
PMT$(7).  Since  these  variables  are  common,  they  are  in  on-line  storage. 

The  above  algorithm  is  repeated  for  .LDS  and  .DAT  files.  At  lines  515  and  705 
respectively,  the  tests  to  check  for  the  presence  of  on-line  information  about 
non-chemical  and  chemical  data  are  executed.  If  on-line  information  is  not 
present,  control  passes  to  lines  550  or  900,  respectively.  If  on-line 
information  is  there,  it  can  be  selected  by  responding  "yes"  at  lines  520  or 
750,  respectively.  Otherwise,  the  .LDS  file  selected  at  line  600  is  down¬ 
loaded  at  line  620  and  its  contents  assigned  to  PANV(l)  through  PANV(90);  the 
.DAT  file  selected  at  line  1100  Is  down-loaded  at  line  1150-1225  and  its 
contents  assigned  to  PANV(91)  through  PANV( 140)  and  to  PHT$(20). 

A. 7.1  The  PPLV  Analysis  Algorithm 

At  line  1300,  IFT  is  entered;  it  determines  the  limiting  Intake  ADITAKE  to  be 
the  basis  for  the  PPLV  calculation;  see  line  1350.  Line  1360  bypasses  two 
soil  PPLV  computation  options  If  PMT$(7)  ■  "  water  ".  The  option  to  compute 
three  Kd  values  (as  the  product  of  Koc  and  the  appropriate  foe  )  is  presented 
at  line  1400,  You  set  IFT  ■  1  to  '  this;  line  1410  is  executed.  The  option 
to  compute  Kpm  ■  Kpat  x  fm  and  Kpd  ■  Kpat  x  fd  directly  is  then  presented 
at  line  1575.  You  set  IFT  ■  1  to  do  this;  line  1625  is  executed. 
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$  COMMON  PANM$ ( ) , PAIDEX( ) , PANV( ) ,PHT$ ( ) , I PATH ( ), LIMIT ( ) 

10  REM  COMP UT11. BAS  version  of  12/8/89 
20  OPTION  BASE  liON  ERROR  GOTO  9900 

40  DIM  INTAKZ(41 ) , PRCMP$ (40 ) , C2DEX(40) ,CTAKE(41 ) ,NTAKE(41 ) , BLURB $ (20) 

50  CLS SPRINT  SPRINT  '»•  WELCOME  TO  THE  PHAS  PPLV  COMPUTATION  MODULE  COMPUTE1 
55  PROMP$ ( 1 )  ■  ‘Drink  Water*:PR0MPS(2)-  *Eat  Fish*sPROMPS(3)-*Eat  Vegetables* 

60  PROMP$ ( 4 ) “"Eat  Beef  (W]"tPR0MP$(5)-  *Eat  Beef  (W^P)* 

62  PROMP$(8)-  ’Dermal  Abs*sPR0MP$(24)-*Dermel  Abs*:PROMP$(7)-*Drink  Milk  (w+Pl* 
65  PROMP$(ll)-*Drink  Water*:PRCMPS(12)-*Bat  Fi«h*:PROMP$(13)-*Eet  Vegetables* 

:  70  PROMP$(14)-*Eat  Beef  [P]' >PR0MP$(15)-"Eat  Beef  [P*S]*iPR0MP$(16)> 

'  *Eat  Beef  {P*S*W]*:PR0MPS(6)-*Drink  Milk  [W]* 

75  PR0MP$( 17) -'Drink  Milk  [P]* »PR0MP$(18)-  *Drink  Milk  JP*Sl*j 
PROMP$( 19) -'Drink  Milk  tP+S+W]* 

80  PR0MP$(20)"*Norm.  Soil/Dust*sPROMP$(21)-  'Heavy  6oil/Dust* 

85  PROMP$(22)-*Dif fusing  vapor/inside*sPROMPS(23)-*Diffusing  vapor/outside* 

300  PRINT  •«**«•**•••*  SCENARIO  SELECTION  *•****•*»***•« 

315  IP  INT(LIM1T{4)/10) "LIMIT(4 )/10  THEN  350 

320  PRINT  PMT$(l)t INPUT  *  Do  you  want  on-line  DUST  info?  *,OP$ 

330  IP  OP$  <>  "yes*  AND  OPS  <>  "no*  THEN  PRINT  PMT$(2)sGOTO  320 
i  340  IP  OPS  -  "yes"  THEN  510 

'  350  PRINT  PMT$ ( 1 ) j INPUT  *  Do  you  want  to  see  .PTH  files?  *,OP$ 

360  IP  OP$  <>  *no*  AND  OPS  <>  *yes*  THEN  PRINT  PMT$(2)»GOTO  350 

370  IP  OPS  •  *no*  THEN  400  ELSE  PILES  PMTS (5)*** .pth* sGOSUB  9600 

400  INPUT  *  Enter  file  name  including  * .pth'  estension:  *,PMT$(11) 

410  IP  RIGHTS (PMTS (11 ) , 4)<>" .pth*  THEN  PRINT  PMT$(4)tGOTO  400 
:  440  OPEN  PMTS(5)+PMTS(11)  POR  INPUT  AS  #ltPOR  J%-1  TO  30s INPUTil , IPATH( J%) 5 
KE»XT 

j  450  POR  J%-1  TO  140: INPUT  #1 ,PAIDEX(J%) sNEXT  JksINPUT  #1,PMT$(7) {CLOSE  #1 
510  PRINT  •**•“•••••  NON-CHEMICAL  SPECIFIC  DATA  SELECTION  ***»***»**• 

515  IP  INT(LIMIT(4)/10)  <>  1  AND  INT(LIMIT(4)/10)  <>  11  THEN  550 
I  520  PRINT  PMT$(1): INPUT  *  Do  you  want  on-line  non-chem  input  data?  ",OPS 
I  530  IP  OP$<>"yes*  AND  OPS  <>*no*  THEN  PRINT  PMT$(2)sGOTO  520 
540  IF  OP$**yes"  THEN  700 

550  PRINT  PMT$(l)i  INPUT  *  Do  you  want  to  see  .LDS  files?  *,OP$ 

560  IP  OPS<>*yes*  AND  OP$<>*no"  THEN  PRINT  PMT$(2):GOTO  550 

570  IP  OP$“*no*  THEN  600  ELSE  FILES  PMTS(5)***.lds*»GOSUB  9600 

600  INPUT  *  Enter  file  name  Including  '.Ids*  estensions  *,PKTS(12) 

610  IP  RIGHTS (PMTS (12) , 4)<>* . Ids"  THEN  PRINT  PKT$(4)  sGOTO  600 

620  OPEN  PMT$(5)+PMT$(12)  FOR  INPUT  AS  flsFOR  J%-1  TO  90: INPUT  #1,PANV(J%): 


NEXT  Jt: CLOSE  II 

700  PRINT  ■*«•**•••«*  CHEMICAL-SPECIFIC  DATA  SELECTION  »**•*****•»• 

705  IP  LIMIT(4)-99<0  THEN  900 

750  PRINT  PMTS(l) i  INPUT  *  Do  you  want  on-line  chemical  input  data?  *,OPS 
800  IP  OPS<>*yes*  AND  OPSO'no*  THEN  PRINT  PMT$(2):GOTO  750 
IP  OPS"*yes*  THEN  1250 


Do  you  want  to  see  .DAT  files?  *,OPS 


85C 

900  PRINT  PMT$ (1) l  INPUT 

950  IP  OPS<>  *yes*  AND  OPS<>*no"  THEN  PRINT  PMTS(2):GOTO  900 
1000  IP  OPS-*no*  THEN  1100  ELSE  FILES  PMTS ( 5)»*» .dat* sGOSUB  9600 
1100  INPUT  *  Enter  file  name  including  '.dat'  extensions  *,PMT$(14) 

1120  IP  RIGHTS (PMT$ (14 ),4)<>*.dat*  THEN  PRINT  PMTS(4)»GOTO  1100 
1150  OPEN  PMTS(5)*PMT$(14)  POR  INPUT  AS  #1 

1225  POR  J%-91  TO  140sINPUT  »1 ,PANV(J%) sNEXT  J%:INPUT  f 1 ,PMT$(20) s CLOSE  ilsCLS 
1250  PRINT  •****••**••**»•  HUMAN  TARGET  SELECTION  •••*****••••♦*»* 

1275  PRINT  *  Input  '1'  if  an  adult  target  is  to  be  selected* 

1300  INPUT  *  Input  '2'  is  a  child  target  is  to  be  selected.  Inputs  *,IPT 

1325  IP  I FT  <>1  AND  IFT<>2  THEN  PRINT  PMT$(2):GOTO  1250 

1350  IP  IPT-1  THEN  ADITARE"PANV(1)*PANV(126)  ELSE  ADITAKE"PANV(2)*PANV( 127) 
1360  IP  PMTS(7)-*water*  THEN  GOTO  1700 

1375  PRINT  ■**“••**•  OPTION  TO  COMPUTE  KD  •  ROC  X  FOC  •*••*•***••■ 

1380  PRINT  *  This  option  is  recommended  for  pre-packed  .DAT  files  where  the* 
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13B5  PRINT  *  above  equation  is  a  reasonable  representation  of  soil  sorption.* 
1390  PRINT  *  Input  *1'  for  the  option,  '2'  to  continue  (existing  KD  values* 
1400  INPUT  *  will  be  used).  *,IFT 

1405  IP  irT  <>1  AND  IPT<>2  THEN  PRINT  PMT$(2)sGOTO  1375 
1410  IP  IFT  -  2  THEN  1500  ELSE  PANV( 118)-PANV( 101 )*PANV( 56) s 
PANV(119)-PANV(101)»PANV(61):PANV(120)«PANV(101)»PANV(65) 

1500  PRINT  ■««*••**  OPTION  TO  COMPUTE  Kpm  AND  Kpd  FROM  fm  AND  fd  •*•'** 
1525  PRINT  *  This  option  is  recommended  for  pre-packed  .DAT  files  where  the* 
1530  PRINT  *  chemical  cone,  is  expected  to  depend  on  fat  content.  The  part.* 
1540  PRINT  *  coefficients  are  Kpm  ■  Kpat  x  fm  and  Kpd  ■  Kpat  x  fd.* 

1550  PRINT  *  Input  '1'  for  the  option,  '2*  to  continue  with  existing  on-line* 
1575  INPUT  "  values.  *,IPT 

1600  IP  IPT  <>1  AND  IPT  <>2  THEN  PRINT  PMT$(2):GOTO  1500 
1625  IP  IPT  -  2  THEN  1700  ELSE  PANV(114 )-PANV(106)*PANV(41 ) 8 
PANV(115)-PANV(106)*PANV(42) 

1700  IP  PMT$(7)-*water*  THEN  LIMIT(l)-l:LIMIT(2)-10sUNIT$-’  mg/L* 

ELSE  LIMIT(l)-llsLIMIT(2)-30:UNIT$-*  mg/kg* 

1775  KDONE-PANV(118)+PANV(58)/PANV(57):KDTWO-PANV(119)*PANV(63)/PANV(62) 

1777  DClP-PANV(47)*PANV(113)/KDONE:BCIP«PANV(44)*PANV(113)/KDONE 
1779  KDTH«PANV( 120 )+PANV(67 ) /PANV( 66) 

1800  FOR  J%«LIM1T( 1 )  TO  LlMIT(2)slP  IPATH(J%)-0  THEN  2000 

1900  ON  J%  GOSUB  2250,2300,2350,2400,2450,2500,2550,2600,2650,2700, 

2750,2800,2850,2900,2950,3000,3050,3100,3150,3200,3250,3300,3350,3400 
1950  INTAKE ( 41 )*1NTAKE( 41 )♦ INTAKE (J%) 

2000  NEXT  Jl 

2010  PRINTsPRINT  •*••***••********•  PPLV  COMPUTATIONS  »**********»«»»*• 

2020  PRINT  TAB ( 5 )  ’SUBSTANCE  NAME  IS  *PMT$(20) 

2030  PRINTsPRINT  *  PATH*  TAB(25)  ’UNIT  INTAKE*  TAB(43)  *SPLV* 

TAB ( 58 )  *PPLV  INTAKE* 

2035  PRINT  TAB (25)  *»g/day  per*  TAB(42)UNIT$  TAB(58)  *mg/day  at  PPLV* 

2037  PRINT  TAB ( 24 )  UNITS :PPLV«ADI TAKE/I NT AKE( 41 ) 

2050  FOR  J%»LIMIT(1)  TO  LIMIT(2):IF  IPATH(J%)-0  THEN  2080 
2070  PRINT  *  *PROMP$(J%)  TAB (25) } {PRINT  USING  *11 . I##aaaa* ; INTAKE (J%) } 8 
PRINT  *  *; SPRINT  USING  *#f .###aaaa* ;ADITAKE/INTAXE( J%) ; : 

PRINT  *  " ; SPRINT  USING  *1 t .#»|a/vaa* ; INTAKE (J%)*PPLV 

2080  NEXT  J% 

2085  PRINTsPRINT  *PPLV  IS  *; SPRINT  USING  *11  .#**aaaa* jPPLV; s 
PRINT  TAB (40)  UNITS 

2090  PRINTsPRINT  ’ALLOWABLE  DAILY  INTAKE  IS  *  TAB(35)  ADITAKE  *  mg/day*s 
GOSUB  9600 

2100  CLS s OPEN  ’conttalk.cmp*  FOR  INPUT  AS  fl.-FOR  J%-1  TO  20: 

INPUT  #1,BLURBS(J%) SPRINT  BLURBS (J%) s NEXT  JksCLOSE  #1 
2110  INPUT  *  Enter  your  selection  heres  *,IFT 

2175  IF  IFT  <>0  AND  IFT<>1  AND  IFT<>2  AND  IFT<>3  THEN  PRINT  PMT$(2)sGOTO  2100 
2180  ON  1FT+1  GOTO  2239,4000,7500,4000 

2239  LIM1T(4)-111 SPRINT  *  READY  TO  RETURN  TO  OPEN11  ’sGOSUB  9600 

2240  CLSsCHAIN  *OPEN11*,680 

2250  INTAKE(1 )»PANV( 3) *PANV( 23 ) {RETURN 

2300  INTAKE (2 ) »PANV(4 )*PANV ( 24 ) *PANV( 111 ) 8 RETURN 

2350  INTAKE( 3 )"PANV(5 )*PANV{ 25 ) *PANV(112 ) s RETURN 

2400  INTAKE (4 ) »PANV(6) *PANV ( 26) *PANV(114 ) *PANV(43 )/PANV(44 ) s RETURN 

2450  INTAKE( 5) *PANV(6) *PANV ( 26 ) *PANV( 114 ) * (PANV ( 113 )*PANV(43 ) /PANV(44) ) {RETURN 

2500  INTAKE (6) “PANV(7 )*PANV ( 27 ) *PANV (115) *PANV ( 46)/PANV( 47 ) s RETURN 

2550  INTAKE{7 ) «PANV(7 ) *PANV( 27 ) *PANV( 11 5 ) * ( PANV ( 113 ) *PANV( 46)/PANV(47 ) ) {RETURN 

2600  INTAKE(8 )«10*PANV(12) *PANV( 1 3 ) *PANV( 33 )* PANV (121 ) {RETURN 

2650  REM  RETURN  ' path9 {RETURN  ’pathlO 

2750  INTAKE( 11 )“PANV( 3 )*PANV( 23 ) *PANV ( 59 ) /(PANV( 119)+PANV( 63 ) /PANV (62) ) {RETURN 
.  2800  INTAKE( 12 ) «PANV(4 ) *PANV( 24 ) *PANV( 111 )* PANV ( 60 )/KDTWOs RETURN 
2850  INTAKE) 13 ) «PANV( 5) *PANV ( 25 ) *PANV ( 112 ) /KDONE : RETURN 
2900  INTAKEt 14 )«PANV(6)*PANV ( 26) *PANV(11 3 ) *PANV (114 ) /KDONE : RETURN 
2950  I NT AXE ( 31 ) *PANV{6) *PANV( 26 ) *PANV( 114 ) * (PANV (113) /KDONE) 

2960  INTAKE( 32 ) »PANV(6) *PANV( 26 ) *PANV( 1 14 ) * (PANV (45 )/PANV( 44 ) ) 
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2970  INTAKE! 15) “INTAKE( 31 )+INTAKE( 32) {RETURN 

3000  INTAKE ( 31 ) “PANV(6)*PANV ( 26)*PANV( 114 )* ( PANV ( 1 1 3 ) /KDONE ) 

3010  INTAKE! 32 )“PANV(6)*PANV(26)*PANV( 114 ) * (PANV(45)/PANV(44 ) ) 

3020  INTAKE! 33 )“PANV(6) *PANV{26) *PANV(114 )• (PANV(43 )/(PANV(44 ) *KDTWO) ) 

3030  I NT ARE { 16 ) “INTAKE ( 31 ) +INTAKE ( 32 ) +INTAKE( 33 ) i RETURN 

3050  INTAKE(17) “PANV ( 7 ) *PANV(27) *PANV(  1 15 )  *PANV(  113 ) /KDONE;  RETURN 

3100  INTAKE! 34 )“PANV( 7 )*PANV(27 ) *PANV( 115)* ( ( PANV ( 1 1 3 ) /KDONE ) 

3110  INTAKE( 35) “PANV( 7 )*PANV(27 ) *PANV(115)* (PANV(48)/PANV (47 ) ) 

3120  INTAKE ( 18 ) “INTAKE ( 34 )+ INTAKE ( 35 ) : RETURN 

3150  INTAKE ( 34 ) “PANV ( 7 ) *PANV(27 )*PANV( 115) * (PANV(113) /KDONE) 

3160  INTAKE ( 35)“PANV( 7 )*PANV(27 ) *PANV( 115)*(PANV(48)/PANV( 47 ) ) 

3170  INTAKE! 36)-PANV(7 ) »PANV(27)*PANV( 115)* (PANV(46)/(PANV(47)*KDTWO) ) 

3180  I NT AKE (19) -INTAKE (34) ♦INTAKE (35)+ INTAKE! 36 ): RETURN 
3200  INTAKE(20)“PANV(8)*PANV(28) sRETURN 
3250  INTAKE (21 ) -PANV( 9) *PANV(29) sRETURN 

3300  DASN«PANV(117)*PANV(68)a(10/3) sDAS-DASN/(PANV(68)+PANV(67) )a2 
3305  COF1«1000*PANV(116)/KDTH 

3310  COF2“ ( ( PANV ( 68 ) +PANV ( 67 ) /PANV (116) +PANV ( 66 ) *KDTH/PANV (116)) *DAS ) a . 5 

3315  TERM1-PANV ( 81 ) *COFl*COF2/( 3.1416*PANV(81 )  )a. 5 

3316  TERM0“PANV(80)*COFl*COF2/(3.1416*PANV{80) )a.5 
3320  FAVN-(TERM1-TERM0 ) *2 1 /(PANV (81 ) -PANV (80 ) ) 

3325  INTAKE! 22 ) -PANV( 10 )*PANV( 30 )*PANV( 77 )*FAVN/PANV( 76) sRETURN 
3350  DASN»PANV(117 )*PANV(64 ) a(10/3) sDAS“DASN/(PANV(64 ) +PANV( 58 ) ) a2 
3355  COF1-1000*PANV( 116) /KDONE 

3360  COF2-( ( PANV ( 64 ) *PANV( 58 ) /PANV( 116)*?ANV( 57 ) *KDONE/PANV(116) )*DAS) a. 5 
3365  TERM1 -PANV ( 8 4 ) *COFl*COF2/(PANV( 84 )*3.1416)a.5 
3370  TERM0“PANV(83) *COFl*COF2/(PANV(83 ) *3 . 1416 ) a. 5 
3375  FAVN- (TERM1-TERM0 ) *2/(PANV( 84 ) -PANV (83) ) 

3380  INTAKE! 23 ) “FAVN*PANV(82)*PANV( 11 )*PANV( 31 )/(86400 1 *PANV( 78)*PANV(79) ) s 
RETURN 

3400  INTAKE! 24 )-10*PANV{ 12 )*PANV( 13 )*PANV( 33 )*PANV( 121 )*PANV( 59 )/KDTWO; RETURN 
4000  PRINT  ■•****•****••*«**•**  CONSTRAINT  ANALYSIS  ********************* 

4003  PRINTsPRINT  TAB ( 5 )  *  TYPE  1  CONSTRAINT.  For  reference,  PPLV  “•  PPLV;UNIT$ 

4010  FOR  J%“LIMIT(1)  TO  LIMIT(2)sIF  IPATH(J%)-0  THEN  4200 

4030  FOR  K%-131  TO  140:IF  PAIDEX(K%) <>4  OR  PANV(K%)<0  THEN  4100 

4050  ON  J%  GOSUB  5100,5200,5300,5400,5500,5600,5700,5800,5900,6000, 

6100,6200.6300,6400,6500,6600,6700,6800,6900,7000,7100,7200,7300,7400 
4100  NEXT  M 
4200  NEXT  J% 

4202  IF  PMT$(7)-«vater*  THEN  4210 

4203  PRINT  *  •••••NOTE****  If  no  test  nessages  vere  displayed  concerning* 

4204  PRINT  *  Type  1  Constraint,  no  soil  pathways  other  than  pathways  10" 

4205  PRINT  *  through  13  were  included  in  the  scenario.* 

4210  PRINT  *  End  Type  1  Constraint  Analysis* sGOSUB  9600; 

IF  IFT-1  THEN  2239  ELSE  7500 

5100  ON  (K%-130)  GOSUB  5110, 5120, 5120, 5120 , 5120, 5120 , 5120, 5120 sRETURN 

5110  PRINT  *  Test  for  water  pathway  f  1  *PROMP$(l) 

5111  TEST-PANV(131) sGOSUB  9500 

5112  IF  TEST>PPLV  THEN  PRINT  *  PPLV  OK  FOR  ORGANOLEPTIC  EFFECTS  PROTECTION* s 
RETURN 

5114  PRINT  TAB(5)  ’POTENTIAL  CONSTRAINT;  offensive  drinking  water* 

5120  RETURN 

5200  ON  (Kt-130)  GOSUB  5120 , 5220, 5120 , 5120 , 5120 , 5120 , 5120, 5120sRETURN 

5220  PRINT  *  Test  for  water  pathway  f  2  *PROMP$(2) 

5221  TEST-PANV( 132) sGOSUB  9500 

5225  IF  TEST>PPLV  THEN  PRINT  *  PPLV  OK  FOR  AQUATIC  B I OTA * s RETURN 
5230  PRINT  TAB(5)  ’POTENTIAL  CONSTRAINT; aquatic  biota  effects*  sRETURN 
5300  ON  (K%-130)  GOSUB  5120 , 5120 , 5120 , 5310 , 5350 ,5120, 5120 , 5120 sRETURN 

5310  PRINT  ’  Test  for  water  pathway  #  3  *PROMP$(3) 

5311  TEST-PANV(134) sGOSUB  9500 

5320  IF  TEST>PPLV  THEN  PRINT  *  PPLV  OK  FOR  PLANTS (based  on  water  data)*; 

GOSUB  9600 sRETURN 
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s  issssHssTr 

1  g®^sS1@@ssws(B- 
STS? SSiiT^'*-  — 

SsS  ?So?irr5S  CONSTRAINT:  livestock  adverse  effects* » 

lloo  S,  'H%  lOT  Mt,r  *•*"*  *  8  "MOMPfUhOWO  sill 
5000  RETURN  'pathlO 

6uS  MlS*^!**?808  *H0'5120' 5120.5120, 5120.5120,5120. 5120-.RETURN 
duo  print  Test  for  soil  pathway  #  1  "prompsMi) 

fill  TEST-  PANV(131).KDTWO/PANV(?9):tosUB  sVboiGOTO  5112 

6210  PRINT%*1TestG^B«oii°'6»>;0,512045i20'5120'5120'5120'5120!RI:TUIW 

•HI  sg^L^54f2sisS!ia^Er£^S‘iB*0#sx*0'*x*0,1,ra,,f 

s  f^asraraasswaas  - 

g» 

clnn  TEST-PAKV(50) •PANv(133)/DCIPiGOSUB  9500: GOTO  5625 

6810  Sl^%-1^it<^^i!0»;i£2;58i°e62J»^|?iJ«0**«0.5120iRETU1W 

fSftft  !®ST:^i?°>*P"»V<133T/(DCXPtPANV(48))lOOSUB  9500.GOTO  5625 

6917  G^PSj^AM2533'^<DCIP4,,ANV<48)  +  <PAMVU8>/,am,0) > * 

7100  PRINT  "  No  Time  1  1°*  “JJ  P***?""*  *  10  -PR0«P${ 20)  .RETURN 

7200  PRINT  •  No  7vS«  1  5™  !  *0r  ‘°H  P#t£Va*  «  »  *PROKP$  ( 21 ):  RETURN 

7300  PRINT  ■  No  T%1  1  \OT  “ff  P«th»»y  •  12  *PR0MP$ ( 22 ): RETURN 

I"1?*.  ^P*  1  constraints  for  soil  pathway  §  13  •PROMPS(23) jhetobn 

7410  PRINT'*1TMtGfo^«Ill0;5^0'51J°,'t1?0'5120'5120'5120'5120}”;TURN 
'If0  print  Teat  for  toil  pathway  f  14  *PR0MPS(24) tGoro  si  11 

«00  1™ l . *****  TYPE  2  CONSTRAINT  XSErlii 

PRINT’*  pplv  .r°rppL5#r*nC*'  "  PANMS(95>  *  “  ’PAHVtSS): 
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7510  IP  PKT5(7)-'«oil*  THEN  GOTO  7600 

7520  IP  PPLV<PANV(95)  THEN  PRINT  •  PPLV  not  subject  to  Type  2  constraint": 

GOSUB  9600 ! GOTO  2239 

7525  PRINT  a  PPLV  exceeds  solubility  limit.  Type  2  constreint  exists" 

7530  PRINT  *  Criteris  levels  in  excess  of  the  PPLV  say  be  justified. ":GOTO  2239 
7600  POR  J%-11  TO  30:C2DEX(J4)-IPATH(J%):NEXT  J% 

7605  IP  IPATH(15)-1  THEN  C2DEX(31)-1:C2DEX(32)-1 

7610  IP  IPATH(16)-1  THEN  C2DEX< 31 )-l :C2DEX( 32 )-l :C2DEX<33)-1 

7615  IP  1PATH(18)-1  THEN  C2DEX(34)-1 :C2DEX(35)-1 

7620  IP  IPATK(19)-1  THEN  C2DEX(34 )-l |C2DEX(35)-1 :C2DEX(36)-1 

7630  REM  This  space  reserved  for  expansion  purposes 

7700  ANYNOO:POR  Jl-ll  TO  40: IF  C2DEX(J«)-0  THEN  7750 

7707  C2T$«"no" 

7710  ON  J«-10  GOSUB  9010,9020,9030,9040,9050,9060,9070,9080,9090,9100, 
9110,9120,9130,9140,9150,9150,9150,9150,9150,9150, 
9210,9220,9230,9240,9250,9260,9150,9150,9150,9150 
7715  IP  C2DEX(j%)-2  THEN  C2T$-"yes" :ANYNO-l 

7720  PRINT  "Path  "  PR0KP$(J%)  ■  type  2  constraint  status  •  "C2T$ 

7750  NEXT  J% 

7751  PRINT  "***NOTE**Expect  non-def lned  pathways  if  pathways  5  or  6  or  8  or  9" 

7752  PRINT  *  were  in  scenario. ":GOSUB  9600 

7755  IP  ANYNO-1  THEN  PRINT  "  Type  2  constraint  flagged,  PPLV  adjustment 
attempted": GOTO  7800 

7795  PRINT  "  Solubility  will  not  pose  a  type  2  constraint" :GOTO  2239 

7800  CNTR-0:POR  J*-ll  TO  40:IF  C2DEX(J%)<>1  THEN  7810  ELSE  CNTR-CNTA+C2DEX ( J%) 

7810  NEXT  J% 

7811  IP  CNTRO0  THEN  7815 

7812  PRINT  "  PPLV  may  not  be  applicable.  System  totally  constrained. ":GOTO  2239 
7815  POR  J»-l  TO  41:CTAXE(J%)-0:NTAXE(J«)-0:NEXT  J« 

7820  POR  J«-LIMIT(1)  TO  LIMIT(2):IF  C2OEX(J«)-0  THEN  7850 
7830  IP  C2DEX(Jt)-l  THEN  NTAKE(Jt)-PPLV*INTAXZ(Jt)  :GOTO  7850 
7840  ON  Jt-10  GOSUB  9310,9320,9330,9340,9350,9360,9370,9380,9390,9400, 
9410,9420,9430,9440 
7850  NEXT  J% 

7860  POR  J*-ll  TO  40:CTAXE(41)-CTAXE(41)*CTAXE(J*): 

NTARE(41)-NTAXE(41)fNTAKE(J%):NEXT  J« 

7880  RADITAXE-ADITAXE-CTAXEUl)  :PLV2-PPLV"RADITAXE/NTAKE(41) 

7890  PRINT  "  Adjusted  PPLV  is  "PLV2  "  mg/kg." 

7900  PRINT  "  Now  checking  to  see  if  further  adjustment  is  needed": 
RATPLV-PLV2/PPLV 

7910  IP  RATPLV<1 . 001  THEN  PRINT  "  No  further  adjustment  needed. 

Analysis  over,":GOTO  2239 
7930  PPLV-PLV2:GOTO  7700 

9010  IP  PPLV»PANV(59)/KOTWO>PANV(95)  THEN  C2DEX(11)-2:RETURN  ELSE  RETURN 

9020  IP  PPLV*PANV{ 60 ) /KDTWO>PANV ( 95 )  THEN  C2DEX(12) -2: RETURN  ELSE  RETURN 

9030  IP  PPLV/XDONE>PANV(95)  THEN  C20EX(13)-2:RETURN  ELSE  RETURN 

9040  IP  PPLV/KDONE>PANV (95)  THEN  C2DEX(14)«2:RETURN  ELSE  RETURN 

9050  IP  PPLV/KDONE>PANV(95)  THEN  9055  ELSE  RETURN 

9055  C2DEX(15)-2:C2DEX(31)-2:RETURN 

9060  IP  PPLV/KDONE>PANV(95)  THEN  9065  ELSE  RETURN 

9065  C2DEX(16)-2:C2DEX(31)-2:RETURN  ELSE  RETURN 

9070  IP  PPLV/KDONE>PANV(95)  THEN  C2DEX(17)»2:RETURN 

9080  IP  PPLV/KDONE>PANV (95)  THEN  9085  ELSE  RETURN 

9085  C2DEX ( 18 ) ■ 2 : C2DEX ( 3 4 ) ■ 2 : RETURN 

9090  IP  PPLV/KDONE>PANV ( 95 )  THEN  9095  ELSE  RETURN 

9095  C2DEX(19)-2:C20EX(34)-2:R£TURN 

9100  RETURN 

9110  RETURN 

9120  IP  PPLV/KDTH>PANV(95)  THEN  C2DEX( 22 ) >2: RETURN  ELSE  RETURN 

9130  IP  PPLV/KDONE>PANV(95)  THEN  C2DEX( 23)»2 :RETURN  ELSE  RETURN 

9140  IP  PPLV"PANV(59)/KDTW0>PANV{95)  THEN  C2DEX(24 )-2 :RETURN  ELSE  RETURN 

9150  RETURN  'default  return  for  unused  pathways 

Figure  A-6.  Source  Code  for  COMPUT11  (page  5  of  6  pages) 
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92X0  RETURN  'second  part  of  pathway  lS(soil) 

9220  RETURN  'aacond  part  of  pathway  IS (soil) 

9230  IP  PPLV/XDTWO>PANV(95)  THEN  C2DEX(33)-2 

9235  RETURN  'water  Intake  part  of  IS 

9240  RETURN  'second  part  of  pathway  16(soll) 

9250  RETURN  'second  part  of  pathway  19 (soil) 

92S0  IP  PPLV/XDTWO>PANV(95)  THEN  C2DEX(36)-2 
:  9265  RETURN  'water  Intake  part  of  19 
9310  CTAKE(11)-PANV(95)*PANV(3)»PANV(  23)  (RETURN 
9320  CTAXE(12)-PANV(95)*PANV(4)*PANV(24)*PANV(111) (RETURN 
9330  CTAXE(13)-PANV(95)*XDONE*INTAXE(13)  (RETURN 
9340  CTAXE(14)-PANV(95)*KDONE*INTAKE(14) (RETURN 

9350  NT ARE ( 32 ) -PPLV* INTAKE ( 32 ) 

9351  IP  C2DEX(31)-2  THEN  CTAXS(31)-PANV(95)*KDONE*INTAXE(31)  (RETURN 

9352  NTAKE(31)-PPLV*INTAXE(31)  (RETURN 
9360  NTAXE ( 32 )-PPLV* INTAKE (32) 

9362  IP  C2DEX(31)-2  THEN  CTAXE(31)-PANV(95)*KDONEMNTAXE(31)  (GOTO  9366 
9364  NTAXE ( 31 )-PPLV* INTAKE (31) 

9366  IP  C2DEX(33)-2  THEN  CTAXEt 33 )-PANV( 95) "KDTWO" INTAKE (33) (RETURN 
,  9368  IP  C2DEX(33)-1  THEN  NTAXE ( 33 )BPPLV* INTAKE (33) (RETURN 
9370  CTAXE (17)-PANV( 95 )*KD0NE»INT AXE (17)  (RETURN 

9380  NTAKE(35)-PPLV*INTAXE(35) 

9381  IP  C2DEX(34)-2  THEN  CTAKE(34)-PANV(95)*KDONE*INTAXE(34)  (RETURN 

9382  NTAXE  ( 34 )-PPLV» INTAKE (34) (RETURN 
9390  NTAKE( 35 )-PPLV* INTAKE (35) 

9392  IP  C2DEX(34)-2  THEN  CTAXE(34)-PANV(95)*KDONE"INTAKE(34)  (GOTO  9396 
9394  NTXE ( 34 ) -PPLV" I NTAXE ( 34 ) 

9396  IP  C2DEX(36)-2  THEN  CTAXE ( 36 )-PANV( 95) "KDTWO* INTAKE (36) (RETURN 

9398  IP  C2DEX(36)-1  THEN  NTAXE (36) -PPLV" INTAKE (36)  (RETURN 

9400  RETURN  'Not  needed  since  C2DEX(20)  alway  1  if  not  0 

9410  RETURN  'Not  needed  since  C2DEX(2l)  alway  1  if  not  0 

9420  CTAKE(22)-PANV(95)"KDTH*INTAXE(22)  (RETURN 

9430  CTAKE{23)-PANV(95)*KDGNE*INTAXE(23)  (RETURN 

9440  CTAKE(24  )«PA*TV(  95 )  "KDTWO* INTAKE ( 24  )  I  RETURN 

9500  PRINT  'TEST  based  on  *PANM$(K%)  (PRINT  "CRITICAL  CONC.  -  "TEST  "  "  UNIT$s 

R£TUKM 

9600  INPUT  "  Hit  enter  (return)  to  continue. .. .",ANT$: return 
9900  IP  ERL-440  AND  ERR-53  OR  ERR- 64  OR  ERR- 7 6  THEN  PRINT  "  Pile  "PMT$(ll)a 
does  not  exist  on  disk.  Disk  will  be" (PRINT  "checked  out.  Review  and 
input  correct  name. "(0P$-"ff* (RESUME  370 
9910  IP  ERL-620  AND  ERR-53  OR  ERR-64  OR  ERR-76  THEN  PRINT  ■  Pile  "PHr$(12)" 
does  not  exist  on  disk.  Disk  will  be" (PRINT  "checked  out.  Review  and 
input  correct  name. *(OP$-"ff" (RESUME  570 
9920  IP  ERL-1150  AND  ERR-53  OR  ERR-64  OR  ERR-76  THEN  PRINT  "  Pile  "PMT$(14)" 
does  not  exist  on  disk.  Disk  will  be"(PRlNT  "checked  out.  Review  and 
input  correct  name. *(OP$-"ff" (RESUME  1000 
9999  END 

Pigure  A-6.  Source  Code  for  COMPUT11  (page  6  of  6  pages) 


At  lire  1700,  LIMIT ( 1 ) .  LIMIT (2) •  and  the  string  UNITS  are  valued  based  on 
PMT$(7).  At  line  1800,  the  pathway  loop  is  entered.  If  IPATH(JX)  •  0  ,  line 
1900-1950  is  skipped;  pathway  Jt  is  not  part  of  the  scenario.  If  pathway  Jt 
is  part  of  the  scenario,  the  a0N  Jt  G0SUB  ...”  command  at  line  1900  is 
executed,  and  the  corresponding  INTAKE(Jt)  is  computed.  The  computation 
subroutines  are  between  lines  2250  through  3400.  Elements  INTAKE(31)  through 
INTAKE(40)  are  reserved  for  sub-units  of  soil  pathways  where  animals  obtain 
pollutant  through  multiple  routes.  For  example,  at  line  2970,  INTAKE(15),  the 
intake  of  pollutant  in  meat,  is  the  sum  of  two  other  intakes,  INTAKE(31) 
which  Involves  pollutant  in  plant  matter  consumed  by  the  beef  cow,  and 
INTAKE(32),  which  involves  pollutant  in  soil  ingested  by  the  beef  cow.  These 
are  computed  at  lines  3000  and  3010.  At  line  1950,  INTAKE(41)  sums  all 
computed  intakes. 
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At  lines  2010-2090,  the  results  of  the  above  computations  are  printed.  The 
PPLV  is  computed  at  line  2037  as  ADITAKE/INTAKE(41)  .  The  SPLV  Is  computed 
at  line  2070,  which  for  path  is  ADITAKE/INTAKE(JI)  .  The  term 
INTAKE(JI)*PPLV  is  the  mg/day  intake  of  pollutant  at  the  PPLV  concentration; 
the  sum  of  these  terms  is  ADITAKE. 

At  the  conclusion  of  the  PPLV  computation  and  printout,  the  file  CONTTALK.CMP 
is  down-loaded  (line  2100).  This  file  provides  information  about  and  the 
options  for  Type  1  and  Type  2  constraint  analysis.  You  input  IFT,  the 
argument  for  the  "ON  IFT+1  SOTO..."  command  at  line  2180.  Regardless  of  the 
IFT  selected,  lines  2239  is  the  last  line  executed  in  C0MPUTU.  At  this  line, 
LIMIT (4)  is  set  equal  to  111.  This  will  inform  C0MPUT11,  when  next  entered  in 
a  current  session,  that  scenario,  non-chemical,  and  chemical  data  are  in  on¬ 
line  storage.  Moreover,  these  data  are  in  an  on-line  storage  status  for 
review  or  modification  in  the  0PEN11,  PATWAY11,  INPUTS11,  and  CHMFIL11 
modules,  as  is  applicable. 


A. 7. 2  Type  1  Constraint  Analysis 


The  selection  of  IFT  of  one  or  three  sends  control  to  line  4000,  where  the 
Type  1  constraint  analysis  begins.  At  line  4010,  a  loop  from  LIMIT ( 1 )  to 
LIMIT (2)  starts;  pathways  not  used  in  the  scenario  indicated  by  IPATH  are 
culled  out  at  line  4020.  For  each  used  pathway,  a  nested  loop  starts  at  line 
4030  (KI  ■  131  to  140,  the  indices  of  the  constraint  data  variables). 
Constraints  which  are  either  not  relevant  or  for  which  data  are  not  available 
are  culled  out  at  line  4030.  For  constraints  which  pass  these  two  tests,  the 
"ON  Jt  G0SUB...."  command  at  line  4050  is  executed.  For  each  subroutine 
specified  at  line  4050,  a  nested  “OH  (KI-130)  G0SUB ...“  command  line  appears, 
which  directs  execution  to  the  relevant  test  for  the  Klth  index  constraint  for 
the  pathway. 


The  location  of  these  tests  is  In  lines  5110  through  7300.  Each  test  involves 
determining  a  water  or  soil  Intake  corresponding  to  the  constraint.  For 
example,  at  line  6515,  the  constraint  for  cattle  intake  (mg  substance  per  day) 
is  PANV(49)  x  PANV(133)  ,  which  the  animal  obtains  from  pasture  and  soil. 

The  term:  PANV(49)xPANV(133)/(BCIP+PANV(45))  represents  the  soil  concentration 
which  would  provide  the  constrained  intake  (see  line  1777  for  BCIP).  At  the 
end  of  each  test,  the  variable  TEST  is  computed.  The  value  is  displayed  by 
“G0SU8  9500"  routine.  Prior  to  the  return  to  the  pathway  level,  TEST  is 
contrasted  to  PPLV.  If  TEST  >  PPLV,  a  line  with  format:  IF  TEST>PPLV  THEN 
PRINT  “PPLV  OK  FOR . . . . “  is  displayed.  Otherwise,  the  message  “POTENTIAL 
CONSTRAINT:..."  is  presented.  When  all  relevant,  valued  constraints  for  a 
given  pathway  are  tested,  the  next  pathway  Is  addressed.  An  exception  to 
this  occurs  when  any  of  the  soil  pathways  20-23  are  in  the  scenario.  For  each 
of  these  pathways,  the  G0SUB  call  at  line  4050  causes  a  display  of  an 
applicable  statement  at  lines  7000-7300. 


A. 7. 3  Type  2  Constraint  Analysis 

If  IFT  ■  1  (line  2110),  the  Type  1  constraint  analysis  is  completed  when  line 
4210  is  reached.  When  IFT  Is  two  or  three,  execution  is  transferred  to  line 
7500.  The  Type  2  constraint  analysis  for  the  water  medium  is  simple;  if  the 
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PPLV  exceeds  a  substance's  solubility  limit,  a  constraint  exists  (line  7520). 
With  this  test,  the  module  completes  execution.  If  the  medium  is  soil, 
processing  starts  at  line  7600,  where  the  array  C2DEX  is  reinitialized; 
C2DEX(Jt)  *  1  when  IPATH(Jl)  «  1.  Moreover,  C2DEX  elements  corresponding  to 
subpaths  31-36  (these  deal  with  the  role  of  soil  and  water  uptake  by  beef  and 
dairy  cows  for  soil  pathways  4,  5,  7,  or  8)  are  valued  at  lines  7605-7620. 

At  line  7700,  the  counter  ANYN0  is  initialized  to  zero,  and  a  loop 
"FOR  Jf  ■  11  to  40"  starts.  The  status  of  C2DEX(Jt)  is  checked;  when 
C2DEX(JX)  «  0  ,  the  loop  is  Incremented.  Within  this  loop,  the  string  C2T$  is 
initially  "no".  If  C2DEX(J1)  -  1  ,  the  "ON  Jf-10  G0SUB..."  command  at  line 
7710  is  executed. 

The  cited  subroutines  are  at  lines  9010  to  9260.  In  each  subroutine,  the 
water  concentration  corresponding  to  the  soil  PPLV  concentration  is  computed. 
If  the  water  level  exceeds  PANV(95),  the  solubility  limit,  C2DEX(Jt)  is  reset 
to  two.  The  return  from  each  subroutine  is  to  line  7715,  which  sets  C2T$  to 
“yes"  and  ANYN0  *  1  whenever  C2DEX(Jf)  »  2  .  Line  7720  reports  the  constraint 
status  for  the  path,  and  at  line  7750,  the  loop  is  completed. 

If  there  are  no  paths  subject  to  a  type  2  constraint,  control  passes  to  line 
7795  and  then  to  line  2239.  Otherwise,  an  adjustment  of  the  PPLV  is 
attempted.  Before  this  attempt,  a  check  is  made  to  see  if  ALL  pathways  are 
constrained;  if  so,  no  adjustment  can  be  logically  made  (see  next  paragraph). 
This  check  is  done  at  lines  7800-7812.  A  counter  CNTR  is  initialized  as  zero. 
A  loop  on  pathways  is  entered.  For  each  C2DEX(Jf)  currently  equal  to  one,  the 
ELSE  statement  at  line  7800  Increments  CNTR  by  one.  At  the  end  of  the  loop, 
if  CNTR  *  0  (only  possible  if  all  C2DEX  elements  are  two),  line  7812  displays 
a  statement  that  no  adjustment  can  be  made,  and  control  passes  to  line  2239. 

The  logic  to  the  PPLV  adjustment  algorithm  Is  based  on  the  concept  that  a  Type 
2-constrained  pathway  cannot  "deliver"  the  Intake  expected  at  the  PPLV.  Each 
such  pathway  "delivers"  the  intake  indicated  by  water  solubility  limitations. 
Thus,  if  the  soil  limit  were  higher  than  the  PPLV,  unconstrained  pathways  can 
"deliver"  more  Intake,  so  that  the  summed  intake  by  all  pathways  is  still 
ADITAKE.  The  pathways  which  can  provide  more  intake  at  a  soil  limit  >  PPLV 
are  those  for  which  C2DEX(Jf)  *  1  . 

The  adjustment  process  starts  at  line  7820,  where  the  pathway  loop  is  entered. 
In  the  loop,  NTAKE(Of)  is  evaluated  If  C2DEX(Jl)  ■  1  (line  7830).  However,  if 
C2DEX( Jf )  >  2  ,  the  "ON  Of  G0SUB..."  command  at  line  7840  is  executed.  In 
each  subroutine  (lines  9310  to  9430),  the  intake  corresponding  to  the 
constrained  portion  of  each  pathway,  CTAKE(Jt),  is  computed.  For  pathways 
dealing  with  cattle  Ingesting  soil  or  drinking  water  in  addition  to  eating 
contaminated  plant  matter,  part  of  a  pathway  may  be  constrained.  For  example, 
INTAKE(32)  at  line  3010  deals  with  the  substance  intake  in  meat  attributed  to 
the  soil  consumed  by  the  beef  cow.  Subpath  32  cannot  be  constrained,  thus  at 
line  9360,  NTAKE(32)  is  unconditionally  computed.  At  line  9351,  CTAKE(31)  is 
computed  If  C2DEX(31)  -  2  ;  otherwise,  at  line  9352,  NTAKE(31)  is  computed. 
CTAKE  elements  are  computed  for  those  pathways  which  are  totally  or  In  part 
constrained.  NTAKE  elements  are  computed  for  non-constrained  pathways  and 
those  parts  of  constrained  pathways  which  are  not  constrained. 


A-28 


At  the  conclusion  of  these  subroutines,  CTAKE(41)  and  NTAKE(41)  are  computed, 
respectively  they  are  the  sums  of  the  other  elements  of  the  CTAKE  and  NTAKE 
arrays.  The  intake  per  unit  substance  concentration  after  removal  of  intake 
"delivered"  by  constrained  pathways  or  constrained  portions  of  pathways  is 
identified  as  RADITAKE  at  line  7880.  Then,  this  line  computes  PLV2,  the 
adjusted  soil  level. 

However,  the  PLV2  computed  above  may  not  be  the  final  adjustment.  The  current 
version  of  PHAS  includes  three  Kd's;  in  C0MPUT11,  they  are  called  KDONE  for 
topsoil,  KDTWO  for  sediment,  and  KDTH  for  mixed  top  and  sub-soils.  Assume 
some  scenario  with  pathways,  and  consider  the  incidence  of  Type  2  constraints 
as  a  substance  concentration  in  soil  is  increased.  Generally,  pathways  with 
KDTH  in  their  calculation  equations  will  be  constrained  first,  then  pathways 
with  KDONE,  and  lastly,  those  with  KDTWO.  Conceptually,  if  PLV2  replaces  the 
PPLV  as  a  soil  level,  since  PPLV  <  PLV2  ,  pathways  or  portions  of  pathways 
that  were  not  constrained  at  the  PPLV  may  become  constrained  at  a  higher 
concentration  level.  Thus,  an  algorithm  is  included  to  readjust  PLV2  for  such 
a  situation. 

This  process  starts  at  line  7900,  where  RATPLV  is  computed.  If 
RATPLV  <  1.001,  no  readjustment  Is  needed,  and  module  execution  ends  (line 
7910).  Otherwise,  at  line  7930,  PPLV  is  replaced  with  PLV2.  At  this  point, 
execution  moves  to  line  7700  which  repeats  the  valuation  of  the  C2DEX  array, 
this  time  based  on  PLV2  rather  than  PPLV.  The  algorithm  continues  to 
recalculate  the  CTAKE  and  NTAKE  arrays,  the  reduced  intake  RADITAKE,  the 
adjusted  soil  limit,  PLV2,  and  finally,  the  ratio  RATPLV.  The  program  ends 
when  the  test  at  line  7910  is  logically  "yes",  where  control  is  transferred  to 
line  2239. 
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A. 8  CHMPRP11 


A. 8.1  The  Main  Routine 

CHMPRP11  is  designed  to  be  modular.  Its  main  routine,  as  discussed  here, 
provides  access  to  24  component  estimation  or  informational  subroutines.  The 
code  for  the  main  routine  is  in  Figure  A. 7.  As  noted  in  Section  A. 6,  the 
COMMON  statement  includes  the  arrays  DATDEX  and  STATDEXS.  The  components  of 
the  DIM  statement  will  be  discussed  as  they  occur. 

At  line  50,  the  value  of  LIMIT (5 )  is  checked.  If  zero,  entry  to  CHMPRP11  is 
from  0PEN11,  and  control  passes  to  line  200.  At  line  225,  CATLIST.CMP  is 
specified  for  down-loading  and  display  (Figure  13,  main  text).  This  is  the 
selection  menu  for  CHMPRP11.  Your  response  values  SELECT  (line  550).  At  line 
625,  the  “  ON  SELECT  GOSUB  ..."  command  directs  execution  to  the  estimation 
or  information  subroutine  corresponding  to  SELECT.  The  return  to  the  main 
routine  is  at  line  650,  where  the  user  is  queried  if  he  wishes  to  stay  in 
CHMPRP11.  If  so  (OPS  is  "yes"),  line  700  directs  execution  back  to  line  200, 
for  the  initial  menu  display.  If  OPS  is  “no",  line  710  chains  to  0PEN11. 

If  at  line  50,  LIMIT(5)  «  1  ,  entry  to  CHMPRP11  is  from  CHMFIL11.  The  value 
of  LIMIT (6) ,  the  common  variable  passed  from  CHMFIL11  Jo  indicate  the  index  of 
the  current  PANV  element,  is  checked.  If  less  than  25  ,  line  60  is  executed; 

otherwise,  line  90  is  executed.  Either  line  has  a  "ON  LIMIT(6)  GOSUB..." 
command.  The  return  to  the  main  routine  is  at  line  100.  If  a  subroutine  is 
entered  and  no  calculation  occurs,  the  variable  SLN  will  be  zero.  Its  value 
is  tested  at  line  100;  if  zero,  control  passes  to  line  650.  Otherwise,  the 
result  carried  out  of  the  subroutine  is  the  variable  ANSWER.  At  line  100,  the 
value  in  ANSWER  is  transferred  to  PANV(90+LIMIT(6)) ,  and  control  passes  to 
line  650.  Lines  700-710  contains  the  algorithm  for  further  processing  based 
on  0P$.  When  0P$  is  "yes",  execution  moves  to  line  50. 

A. 8. 2  Subroutine  Structure 

At  the  beginning  of  each  subroutine,  an  information  screen  is  displayed.  To 
conserve  space  in  the  CHMPRP11  source  code,  the  information  is  in  a  .CMP  file 
(see  Figure  3,  main  text  for  a  listing  of  such  files).  A  common  subroutine  is 
used  to  down-load  and  display  these  files.  BLURBS  is  a  21-element  string 
array.  The  last  element,  BLURB$(21),  is  assigned  the  filename  to  down-load. 
When  required,  a  GOSUB  call  is  made  to  either  line  15400  (which  causes  a 
heading  to  be  displayed)  or  line  15550.  At  line  15600,  the  subroutine  down¬ 
loads  19  lines  from  the  file  Into  the  first  19  elements  of  BLURBS,  which  is 
printed  at  line  15650. 

Informational  subroutines:  The  molecular  weight  subroutine  is  a  typical 
example,  and  is  shown  in  Figure  A-7.  Three  assignments  are  made  at  line  725. 
PNTR  Is  the  index  for  the  property  (91  for  molecular  weight).  BLURBS(21)  is 
the  filename  for  the  Information  screen  (in  this  case,  M0LWT.CMP).  The 
variable  SK  governs  whether  a  halt  is  executed  after  a  screen  is  displayed; 


*  The  number  of  arguments  is  limited  by  the  255  character  command  line  limit. 

A-30 


2  COMMON  PANM$ ( ) , PAIDEX( ) ,PANV( ) ,  PMT$ ( ) , IPATH( ), LIMIT ( ) , DATDEX ( ) , STATDEXJ ( ) 

10  REM  CHMPRP11 .  9/5/89  version. 

30  OPTION  BASE  1 
32  ON  ERROR  GOTO  30000 

35  DIM  FRAGS ( 41 ) , VON (41 ) ( TON (41 ) , PON( 41 ) , MOW( 41 ) ,NOF( 41 ) ,KF( 40 ) , 

LBAS( 22) , NOLB (22) ,LBA$ ( 22 ), BLURBS (21 ) 

SO  IF  LIMlT(5)-0  THEN  200  ELSE  IF  LIM1T(6)>25  THEN  90 

60  ON  LIMIT(6)  GOSUB  725,1350,1450.1400,775,2725,5000,5000.5000,5000, 

5025,5450,5725,5750,5750,4525,5000,5000,5000,5000,5975,6275,6950,6975,7725 
70  GOTO  100 

90  ON  LIM:t(6)-2S  GOSUB  6450,9275,10450,10450,10450,11010,5000,5000,5000, 
5000,11050,11100,5000,5000,5000,11150,11200,11300,11600,11700, 
5000,5000,5000,5000,5000 

100  IF  SLN-0  THEN  650  ELSE  PANV(90+LIMIT(6) )-ANSWER  :GOTO  650 

200  CLSsPRINT  WELCOME  TO  THE  CHEMICAL  PROPERTIES  ESTIMATION  MODULE  ***** 

225  BLURBS ( 21 )a"cstlist.anp"]SK«l: GOSUB  15550 

550  INPUT  '  Input  the  number  of  your  selection:  *, SELECT 

575  IF  I NT{ SELECT )<>SELECT  THEN  PRINT  PMTS(2):GOTO  550 

600  IF  SELECT<1  OR  SELECT>31  THEN  PRINT  'Selection  out  of  number  range. 

Try  egain'sGOTO  550 

625  ON  SELECT  GOSUB  725,1350,1450,1400,775,2725,4500,4975,5000.5025.5450. 
5725.5750,1325,5975,6275,6950,4525,6975,7725,8450,9275,10450,11010, 
11050,11100,11150,11200,11300,11600,650 
650  PRINT  TAB(5)  PMT$(1):  INPUT  'Wish  to  Do  More?  ",  OPS: 

675  IF  OP$<>*yes*  AND  OP$<>*no*  THEN  PRINT  PMT$(2):GOTO  650 

700  IF  OP$-*yes*  AND  LIMIT(5)«0  THEN  GOTO  200  ELSE  IF  OP$-*yes*  THEN  GOTO  50 
710  IF  LIMIT(5)-0  THEN  CLS:CHAIN  *openll* ,680  ELSE  CLS:CHAIN  *chmf i 111  * , 5000 


725  PNTR-91 : BLURBS ( 21 )“*molvt. cap* :SK"1: GOSUB  15400: SLN-0 :RETURN 


15400  CLS: PRINT  *  a*******************  INFORMATION  ON  ******************* 
15450  PRINT  PANMS(PNTR) 

15500  FOR  J%«1  TO  19:PRINT  PMTS(6):NEXT  J% 

15550  OPEN  BLURBS (21)  FOR  INPUT  AS  #1 

15600  FOR  J4-1  TO  19: INPUT  |1 , BLURBS (J%) :NEXT  J%:CLOSE  tl 
15650  LOCATE  4,l:FOR  J%-1  TO  19:PRINT  BLURBS (J% ): NEXT  J% 

15675  IF  SK-1  THEN  RETURN  ELSE  GOSUB  15850:RETURN 
15750  IF  LIMIT(5)-0  THEN  INPUT  *  Enter  Log  Kov:  * , LKOW : RETURN 
ELSE  LKOW- PANV( 94): PRINT  PANM$<94)  *  -  *  PANV ( 94 ): RETURN 
15775  IF  LlMlT(5)-0  THEN  INPUT  *  Enter  Mol  Weight:  *,mwt: 

RETURN  ELSE  MWT-PANV ( 91 ): PRINT  PANMS(91)  *  -  *  PANV ( 91 ): RETURN 
15800  PRINT  TAB(5)  PANMS(PNTR)  *  -  *  ANSWER: RETURN 

15825  IF  LIMIT(5)-0  THEN  INPUT  *  Enter  veter  sol.  in  mg/L:  * ,WSOL:RETURN 
ELSE  WSOL-PANV(95) :PRINT  PANM$(95)  *  -  *  PANV ( 95 ): RETURN 
15850  INPUT  *  Press  enter  (return)  key  to  continue. ...*, IKYS:RETURN 


Figure  A-7.  Source  Code  for  the  Main  Routine  and  the  Information  Display 
Subroutines  of  CHMPRP11. 

it  is  when  SK  -  1  (line  15675).  Line  15450  displays  PAHM$.  At  the  return 
from  the  display  subroutine,  SLN  is  set  equal  to  zero.  The  return  to  the  main 
routine  is  to  either  line  100  (entry  from  CHMFIL11)  or  directly  to  line  650 
(entry  from  0PEN11). 

Subroutines  with  Estimation  Methodsi  These  will  be  discussed  below  in  turn. 

In  general,  they  are  structured  as  follows: 

o  The  first  line  has  an  assignment  of  PNTR,  BLURB$(21),  and  SK.  An 
information  screen  is  displayed  as  described  Above. 

o  A  menu  of  estimation  methods  is  displayed,  from  which  you  select  a 
numerical  option.  The  number  is  assigned  the  variable  none  SLN. 


A-31 


o  If  you  select  SLN  «  0  ,  execution  Is  transferred  to  the  subroutine's  final 
RETURN  statement. 


o  A  selection  of  any  other  valid  SLN  transfers  execution  to  the  specific 
estimation  method. 

o  Data  Input  statements  that  access  information  from  the  PANV  array  have  a 
standardized  format  (below,  VARVALU  is  a  generic  term  assigned  to  an  element 
in  the  PANV  array): 

IF  LIMIT (5)*0  THEN  INPUT  ["prompt  for  variable"]  .VARVALU 
ELSE  VAR VALU«PANV( index  of  variable):  PRINT....  {.-RETURN} 

Variables  used  in  several  estimation  routines  are  accessed  by  GOSUB  calls  to 
lines  15750,  15775,  and  15825.  In  those  cases,  the  "RETURN"  is  included  in 
the  statement.  If  LIMIT (5)  *  0  (entry  to  CHMPRP11  from  0PEN11),  manual 
input  of  data  is  requested.  The  ELSE  portion  provides  for  transfer  of  data 
from  the  appropriate  PANV  array  element  when  LIMIT (5 )  «  1. 

o  At  the  end  of  the  method's  algorithm,  ANSWER  is  computed  and  displayed  by 
the  "GOSUB  15800"  command.  After  this  display,  the  subroutine's  RETURN  to 
the  main  routine  occurs. 

A. 8. 3  The  Boiling  Point  Estimation  Subroutine 

The  code  for  this  subroutine  is  presented  in  Figure  A-8.  Line  1450  has 
assignments  of  PNTR,  BLURB$(21),  and  SK,  and  the  GOSUB  call  to  display 
information.  The  method  is  selected  in  response  to  the  prompt  at  lines  1500- 
1575.  The  selection  SLN  «  1  sends  operations  to  line  1650.  The  melting 
point  is  called  HELT  .  The  main  calculation  occurs  at  line  1675 
(TB0IL  in  °K): 


TB0IL  -  1 .713*(MELT+273 .2) 

ANSWER  is  the  °C  counterpart  of  TB0IL. 

If  SLN  «  2  is  selected,  the  numerical  parameters  for  Miller's  Method  are 
down-loaded  from  "MILTB0IL.CMP"  at  lines  1700-1725.  The  various  variables 
which  appear  in  the  subroutine  for  this  purpose  are: 

FRAGS(Jt)  describes  the  fragment  for  the  JXth  element.  There  are  41  such 
elements. 

TON(Jt),  PON(Jt),  VON(Jt),  and  MOW(JX)  are  the  temperature,  pressure,  volume, 
and  molecular  weight  increments  of  FRAGS(JX). 

NOF(JX)  is  the  number  of  FRAG$(Jt)  in  the  molecule.  Initially,  this  is  valued 
at  zero  for  all  fragments. 

An  Information  screen  of  Miller's  Method  is  down-loaded  from  "MILLERM.CMP"  at 
line  1750.  If  you  choose  to  do  the  computation  after  reading  the  message  (the 
option  to  leave  is  at  lines  1775-1825),  the  tableau  shown  in  Figure  A-9 
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1450  PNTR-93:BLURB$(21)-atboil.cmpa:SX-OsGOSUB  15400 

1500  PRINT  •*•«*••••*•«***•  BOILING  POINT  ESTIMATION  MENU  •***••***••••**••*•• 
1525  PRINTs  PRINT  TAB(S)  "Select  'O'  to  exit  without  calculation 
1550  PRINT  TAB(5)  'Salact  '1'  to  do  'down  and  dirty*  estimation* 

1575  INPUT  a  Salact  *2'  to  do  Millar's  method.  Bntar  salactions  *  ,SLN 
1600  IP  SLN  <>0  AND  SLN  <>1  AND  SLN  <>2  THEN  PRINT  PMT$(2)lGOTO  1500 
1625  ON  SLN+1  GOTO  2700,1650,1700 

1650  CLSsIF  LIMIT(5)-0  THEN  INPUT  a  Enter  Melting  Point  (DegC):  a,MELT 
ELSE  MELT-PANV(92)  SPRINT  PANM$(92)  a  -  ■  PANV(92) 

1675  TBOIL-1.713*  (MELT+273.2) :  ANSWER-TBOIL-273.2:GOTO  2675 
1700  OPEN  "MILTBOIL.OfP"  FOR  INPUT  AS  «1 

1725  FOR  J%-1  TO  41s  INPUT  tl  ,FRAG$(J%)  ,TON(J%)  ,PON(J%)  ,V0N(J%)  ,MOW(J%) 

1740  NOF(J%)-0 sNEXT  J%: CLOSE  fl 

1750  BLURBS<21)-amillerm.cmp*sCLS:SX-lsGOSUB  15550 

1775  LOCATE  22,5:PRINT  PKT$ ( 1 ) s INPUT  a  Do  you  wish  to  continue  analysis?  a,OP$ 
1800  IF  Op$oayesa  AND  OP$<>anoa  THEN  PRINT  PMT$(2)sGOTO  1775 
1825  IF  OP$-ano"  THEN  2700 

1850  CLS s LOCATE  l,20sPRINT  'MILLER  BOILING  POINT  METHOD  FRAGMENTS  ID  TABLE* 

1875  FOR  J%«0  TO  9 S LOCATE  J%+2,1 SPRINT  USING  a##t* ;NOF(4*J%*l) 

1925  LOCATE  J%+2 , 4 SPRINT  FRAGS (4»J4*1 ) 

1950  LOCATE  J%+2, 21  SPRINT  USING  atll';NOP(4aJt+2) 

1975  LOCATE  J%+2,24sPRINT  FRAGS (4*J%+2) 

2000  LOCATE  J%+2, 41  SPRINT  USING  a##J* ;NOF(4aJ%*3) 

2025  LOCATE  J%+2 , 44 SPRINT  FRAGS ( 4aJ%+3 ) 

2050  LOCATE  J«f 2,61  SPRINT  USING  a«ll*;NOF(4*J«f4) 

2075  LOCATE  J«*2,64:PRINT  FRAG$(4*J%«4) 

2100  NEXT  J« 

2125  LOCATE  12, 1  SPRINT  USING  *l(la ;NOF(41 ) s LOCATE  12,4sPRINT  FRAGS(41) 

.  2150  2IT%-0:FOR  J%-1  TO  41s2IT%-ZIT%*NOF(  J%)  sNEXT  J% 

2175  IF  ZIT%«0  THEN  2275 

2200  LOCATE  20,5:PRINT  PMTS(l) : INPUT  a  Do  you  want  to  do  more?  " , ANY$ 

2225  IF  ANY$<>ayesa  AND  ANY$oano*  THEN  PRINT  PMT$(2)sGOTO  2200 
2250  IF  ANY$-anoa  THEN  2450 

2275  LOCATE  14,1s  PRINT  a  Whan  promoted,  enter  FIN,  Enter  number  of  units  next* 

;  2300  LOCATE  15,lsPRINT  PMTS ( 6 ) s LOCATE  15,1s 

INPUT  a  Enter  FIN  (from  1  to  41)  here:  \HFRAG 
2325  IF  NFRAG<1  OR  NFRAG>41  THEN  PRINT  a  Input  is  out  of  range!  Try  again* s 
GOTO  2300 

2350  IF  NFRAGOINT(NFRAG)  THEN  PRINT  a  Integer  input  neededl  Try  again*: 

GOTO  2300 

2375  LOCATE  17,1:PRINT  PMT$(6) s LOCATE  17,1:INPUT  a  Enter  number  of  specified 
fragments  in  molecule.  "  ,NOF(NFRAG) 

!  2400  IF  NOF(NFRAG) <0  OR  INT(NOF(NFRAG) )<>NOF(NFRAG)  THEN  PRINT  PMTS(2):GOTO  2375 
,  2425  GOTO  1850 

•  2450  SUMDP-0 : SUMDV-0 : SUMDT-0 s MVT-0 
.  2475  FOR  J%-1  TO  41 

2500  SUMDP-SUMDP-»NOF(J%)*PON(J%)  sSUMDV-SUMDV+NOF(J%)*VON(J%) 

2525  SUMDT-SUMLT>NOF(J%)*TON(J%)sMWT-MWT+MOW(J*)*NOF(J%)  sNEXT  J% 

2550  THETA- . 567*SUMDT-SUKDTa2 

2575  LOCATE  14,1:PRINT  PMTS ( 6 ) s LOCATE  14,1:PRINT  a  Molecular  Weight  computed 
from  your  inputs  -  a  MWT 

2580  IF  LlMIT(5)-0  THEN  2600  ELSE  PRINT  *  Molecular  Weight  in  File  * 

PMT$(14)a  -  aPANV(91) 

2585  PRINT  *  Other  than  round-off  error,  discrepancy  may  indicate  error 
in  inputs  a 

2590  PRINT  *  to  the  boiling  point  routine  or  in  your  input  to  the  .DAT  file.  * 
2600  PCRIT«MWT/< . 34+SUMDP)  a2  :  VCRIT-40+SUMDVsFACTl-(  1-THETA)  a( 2/7) 

2625  BETA-  (1. 255*  (FACT1-.  048  )*LOG(VCRIT)*FACTl*LOG(PCRIT)  )/FACTl 
2650  TCR1T-EXP( BETA) /82.054s  TBOIL-THETAaTCRITs  ANSWER-TBOIL-273.2 
2675  IF  SLN-4  THEN  RETURN  ELSE  LOCATE  20,1:PRINT  PMT$(6) SPRINT  PMT$(6): 

LOCATE  20,ltGOSUB  15800 
'  2700  RETURN 

Figure  A-8.  Boiling  Point  Estimation  Subroutine  A- 
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The  CRT  will  display  41  different  structure  fragment*  In  a  table. 

You  will  be  prompted  to  enter  the  Identification  number  for  a  given 
fragment  (FIN)  of  the  aubject  pollutant  and  then  the  nianber  of  time*  that 
fragment  occur*  In  the  pollutant  molecule.  Your  entry  will  be  echoed  back. 
You  will  be  queried  If  you  wlah  to  do  more.  If  you  aelect  yea,  the  table 
will  re-dlsplay  with  the  prevloua  aelection  posted.  Thl*  sequence  I* 
repeated  until  you  respond  'no'  to  the  'Do  you  want  to  do  more?’  query. 

in  the  table,  there  are  coded  abbreviation*.  'NR'  Indicate*  a  non¬ 
ring  structure,  'RG'  a  ring.  Rings  can  be  wither  aliphatic  or  aromatic. 

Other  abbreviations  are  atc-alcohol,  phl»phenol,  aid*  aldehyde,  est-ester . 

The  triple  bond  (see  F1N9  and  FIN10)  appear*  as  *  — '.  As  examples  of  input, 
dlnltrophenol  would  appear  as  3FIN14  (-CH-  In  a  ring).  3FIN16  (-C<  In  a  ring) 
1FIN22  (phenolic  OH),  and  2FIN37  (nltro  groups).  The  compound  DBCP 
1 , 2-d l bromo-3-ch loropropane  or  CH2Br-CHBr-CH2CI  appear  as  2FIN2 
(-CH2-  non-rlng),  1FIN3  (-CH«  non-ring),  2FIN19  (bromine),  and  1FIN18 
(chlorine).  Entries  need  not  be  made  In  FIN  order. 


Enter  'yes'  or  'no' . 

Do  you  wish  to  continue  analysis?  yes 


MILLER  BOILING  POINT  METHOD  FRAGMENTS  ID  TABLE 


OF  INI  -CH3  (NR) 

OFIN2  - 

-CH2-  [  NR  ) 

OFIN3  - 

•CH« 

(NR) 

0FIN4  »C< 

(NR) 

OF  1 N5  -CH2  (NR) 

OFIN6  -CH-  (NR) 

0FIN7  . 

■C< 

(NR) 

OF  1 NB  -C- 

(NR) 

0FIN9  — CH  (NR) 

OF  1 N 10 

— C-  (NR) 

OF  INI  1 

-CH2 

-  (RQ) 

OF  1 N 1 2 

-CH< 

(RG) 

OF  1 N 1 3  >C<  (RQ) 

0FIN14 

-CH-  (RG) 

OF IN15 

-C< 

(RQ) 

OFIN1B 

— C— 

(RG) 

OFIN17  -F 

OF  1  N 1  8 

-Cl 

OF  INI 9 

-Br 

OFIN20 

—  1 

OF  1 N2 1  -OH  a  1 C 

OFIN22 

-OH  phi 

OF IN23 

-O- 

(NR) 

OFIN24 

-o- 

(RG) 

OFIN25  >C«0  (NG) 

OF IN26 

*C-0  (RG) 

OF IN27 

-CH-o  aid 

OFIN2B 

-COOH  acid 

OFIN29  -COO-  eat 

OFIN30 

-O  other 

OFIN31 

-NH2 

OFIN32 

>NH 

(NR) 

OFIN33  »NH  (RG) 

OF IN34 

»N-  (NR) 

OF IN35 

>N- 

(RQ) 

OFIN36 

-CN 

OFIN37  -N02 

OFIN38 

-SH 

OFIN3B 

-S- 

(NR) 

OFIN40 

-S- 

(RG) 

OFIN41  -S 


When  prompted,  enter  fin.  Enter  number  of  units  next 
Enter  FIN  (from  1  to  41)  here:  14 


Enter  number  of  specified  fragments  In  molecule.  3 


Figure  A-9.  MiTer  Boiling  Point  Method  Displays:  Information  and  Tableau. 


(which  is  also  Figure  14  in  the  main  text)  is  displayed  by  lines  1850-2125. 

At  line  2150,  ZITX  sums  the  number  of  fragments  In  the  tableau.  If  ZITX  is 
zero,  lines  2200-2250  are  bypassed.  At  line  2275  through  2400,  the  entries 
for  NFRAG,  the  number  identifier  for  a  given  fragment,  and  NOF(NFRAG) ,  the 
number  of  the  given  fragment  in  the  molecule,  are  entered.  The  location  of 
the  tableau  and  these  entries  on  the  CRT  screen  is  fixed  (note  use  of  the 
LOCATE  cormand).  At  line  2425,  control  is  sent  back  to  line  1850,  which  again 
displays  the  tableau  with  the  updated  fragments  listing.  When  ZITX  is  not 
zero,  the  message  at  2200  is  displayed  on  li.ie  20  of  the  screen  (if  ZITt  is 
zero,  no  entries  have  been  made,  and  the  program  assumes  you  will  make  some). 
If  you  respond  'yes’,  control  goes  to  line  2275.  If  you  respond  'no',  the 
sums  of  products  N0F(JX)xP0N(0X),  N0F(JX)xV0N(JX) .  N0F(JX)xT0N(JX) ,  and 
N0F(JX)xM0W(JX)  are  computed  at  lines  2500  and  2525  respectively  as  SUMDP, 
5UMDV,  SUMDT,  and  MWT.  At  line  2575,  the  computed  molecular  weight,  MWT ,  is 
displayed.  Lines  2580-2590  is  an  advisory  message  concerning  the  value  of 
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PANV(91)  displayed  when  LIMIT (5)  ■  1  .  MWT  should  equal  PANV(91),  or  differ 
slightly  due  to  the  number  of  significant  figures  used  in  molecular  weight 
calculations.  The  mathematics  continues  to  line  2650,  where  ANSWER  is 
computed.  Line  2675  has  a  conditional  statement  to  return  the  boiling  point 
subroutine  to  one  of  the  vapor  pressure  methods  (see  Section  A. 8. 5,  "Mackay's 
Method  #2").  Otherwise,  the  boiling  point  result  is  printed  on  the  twentieth 
line  of  the  monitor  display. 

A. 8. 4  The  Water  Solubility  Estimation  Subroutine 

The  code  for  this  subroutine  is  found  in  Figure  A-10.  The  information  screen 
is  in  WATERSOL.CMP  (line  775).  The  selection  menu  is  displayed  by  lines  825 
to  1000.  Line  1030  calls  the  short  subroutine  at  line  15750,  which  provides 
the  numerical  value  for  the  variable  LK0W.  Since  equation  2.3  (SLN  ■  2) 
requires  no  other  inputs,  line  1075  directs  its  evaluation  at  line  1175.  The 
other  equations  require  molecular  weight  input  (the  variable  MWT);  hence  the 
subroutine  at  line  15775  is  called  by  line  1075. 

Line  1075  concludes  with  an  "ON  SLN+1  GOTO..."  branch  command.  Actually, 
two  of  the  five  options  have  been  disposed  of;  this  statement  addresses  the 
other  three.  Line  1200  sets  TMELT  ■  25  so  that  the  equation  at  line  1275  can 
be  used  for  the  SLN  *  3  option.  Line  1225  requests  a  melting  point  for  the 
SLN  «  4  option.  Line  1250  resets  TMELT  to  25  if  a  smaller  value  is  entered 
at  line  1225.  Then  line  1275  processes  both  options. 

A. 8. 5  The  Vapor  Pressure  Estimation  Subroutine 

The  code  is  in  Figure  A. 11.  VAPRESS.CMP,  the  file  for  the  vapor  pressure 
information  screen  is  downloaded  and  displayed,  followed  by  VAPMENU.CMP,  which 
contains  the  options  menu.  At  line  2875,  you  enter  TCAL  ,the  temperature  at 
which  the  vapor  pressure  is  to  be  estimated;  it  is  then  converted  to  °K  as 
TCALK.  STATS  is  provided  to  assess  the  state  of  the  substance  at  TCAL;  it  is 
initially  "no"  (substance  is  a  solid).  Line  2900  directs  execution  to  the 
start  of  each  calculation  option. 

Mackay's  method  1  (  SLN  ■  1  )  starts  at  line  2925.  If  entry  to  CHMPRP11  is 
from  CHMFIL11,  the  line  2925  transfers  PANV(92)  and  PANV(93)  to  the  variables 
TM  and  TB.  Otherwise,  at  lines  2950-2975,  you  provide  these  values.  At  line 
3050,  RTM,  the  ratio  of  the  melting  point  temperature  to  the  calculation 
temperature  (°K),  is  compared  to  one.  If  RTM  <  1,  the  substance  is  a  liquid 
and  at  line  3050,  FACTOR  ■  0  .  Otherwise,  FACTOR  is  valued  as 
6.8x(RTM-l)  .  At  line  3075,  the  variable  LNPVA,  in  units  of  natural  log 
pressure  (atmospheres),  is  computed.  Line  3100  computes  ANSWER  in  mm  Hg  from 
LNPVA. 

Watson's  method  (  SLN  «  2  )  starts  at  line  3150.  Part  of  this  routine  is 
executed  when  you  select  option  "5"  ,  so  PREF  is  pre-set  to  760  mm  Hg.  At 
line  3160,  the  boiling  point  temperature  (TREF)  is  valued.  At  line  3170,  if 
LIMIT ( 5)  «  1  ,  PANV(92)  is  compared  to  TCAL.  If  PANV(92)  exceeds  TCAL,  the 
substance  Is  a  liquid,  and  STATS  is  reset  to  "yes".  If  LIMIT (5)  ■  0  , 
execution  skips  to  line  3200,  where  STATS  Is  manually  entered.  At  lines  3250- 
3305,  a  message  is  displayed  about  the  next  information  screen  table, 
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775  PNTR-95: BLURBS ( 21 )-'v*t«rxol.CBp*:SK»0:GOSUB  15400 


825  CLS: PRINT 
850  PRINT  TAB( 5) 
875  PRINT  TAB(5) 
900  PRINT  TAB(S) 
925  PRINT  TAB(5) 
950  PRINT  TAB{5) 
975  PRINT  TAB(5) 
INPUT  * 


HATER  SOLUBILITY  ESTIMATION  MENU  *»***••**•****• 
*Ent«r  value  for  desired  aatimation  Bet hod* 

•Select  'O'  to  exit  without  any  eatiaata  performed* 

•Select  '1'  for  LRR  aquation  2.2  (alao  need  MW) * 

•Select  '2'  for  LRR  equation  2.3* 

•Select  '3'  for  LRR  equation  2.15  (also  need  MW)* 

•Select  '4'  for  LRR  equation  2.15  with  Belt  pt.  correction* 
(need  MW  and  Taelt).  Enter  selection  here:  *,SLN 
IP  SLN  <0  OR  SLN>5  OR  SLN<>1NT(SLN)  THEN  PRINT  PMT$ ( 2 ) : GOSUB  15850: 

GOTO  825 

IP  SLN-0  THEN  1325  ELSE  GOSUB  15750 

IP  SLN-2  THEN  1175  ELSE  GOSUB  15775:ON  SLN+1  GOTO  1325,1150,1175,1200,1225 
1150  SWMUMW-10a(-1.37*LKOW+7.26) : ANSWER-SWMUMW*MWT/1000 :GOTO  1300 
1175  ANSWER-10a(-.922*LKOW+4.184):GOTO  1300 
1200  TMELT-25:GOTO  1275 

1225  IP  LIMIT(5)»0  THEN  INPUT  ■  Enter  Belting  point,  deg  C:  * , TMELT 
ELSE  TMELT-PANV< 92): PRINT  PANM$(92)  •  -  ■  PANV(92) 

1250  IP  TMELT<25  THEN  TMELT* 2 5 


1000 

1025 

1030 

1075 


1275  MPSWM«10a(1 ,339*LKOW- .978* .0095* (TMELT-25) ) :SWM«1/MPSWM: 

ANSWER-SWM*MWT* 1 0 0 0 
1300  GOSUB  15800 
1325  RETURN 


Figure  A-10.  Water  Solubility  Estimation  Subroutine 


(Figure  16,  main  text).  After  a  pause  at  line  3325,  the  subroutine  starting 
at  line  4250  is  called.  First,  data  are  down-loaded  from  VPFACTOR.CMP  to  the 
35  elements  in  the  array  KF.  Line  4325  provides  the  information  to  down-load 
the  information  screen  file  VPTABLE.CMP,  whose  display  appears  in  Figure  16  of 
the  main  text.  At  line  4350,  you  provide  the  value  to  KFINDEX,  the  structure 
identification  index.  Then  at  line  4425,  the  element  KF(KFINDEX)  is  called 
KFCAL.  Then  execution  passes  bade  to  line  3325  to  value  TREFK  and  TEQB. 

At  lines  3375-3450,  the  exponent  MEX  is  computed.  If  STATS  ■  "yes"  (the 
substance  is  a  liquid  at  room  temperature),  MEX  ■  0.19.  Otherwise,  the  value 
of  MEX  depends  upon  TEQM.  At  line  3390,  TEQM  is  equated  to  TEQB  for  SLN  »  2 
(the  other  part  of  this  command  is  needed  for  the  SLN  ■  5  option).  At  line 
3475,  the  intermediate  variable  FA1416  is  calculated.  When  SLN  *  2  ,  the 
term  log(PREF/760)  is  zero,  and  the  calculation  at  line  3550  for  LNPVA 
corresponds  to  equation  14-16  in  Lyman  et  al.6  The  input  dat^  for  the 
estimate  are  displayed  at  lines  3580-3590.  Execution  passes  to  line  3100  to 
convert  LNPVA  to  pressure  in  mm  Hg  and  display  this  pressure  as  ANSWER. 

The  interpolation  method  (  SLN  ■  3  )  starts  at  line  3625.  The  two  sets  of 
temperature  and  pressure  data  are  entered  at  lines  3675-3750.  At  line  3925, 
the  variable  RSL  is  entered,  which  governs  if  a  solid  phase  adjustment  to  a 
liquid  vapor  pressure  estimate  is  needed.  At  line  4000,  the  slope  (ASLOPE) 
and  the  intercept  (BINT)  are  computed  for  the  linear  relation.  If  RSL  <>  2  , 
LNPVA  is  computed  at  1  i r*s  4025  and  control  passes  to  line  3100.  If  RSL  •  2  , 
the  solid  vapor  pressure  adjustment  (FACTOR  ,  the  same  as  at  line  3050)  is 
made  at  line  4075. 

Mackay's  method  2  (  SLN  ■  4  )  starts  at  line  4100.  Here,  the  boiling  point  is 
estimated  from  the  melting  point.  Control  is  first  passed  to  line  1650  in  a 
60SUB  call.  This  enters  the  boiling  point  estimation  routine,  described  in 
Figure  A-8,  and  uses  the  equation  at  line  1675.  Line  2675  in  that  routine 
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2725  PNTR-96:BLURB$(21)-*vapress.cmp* :SK-0:GOSUB  15400 

2775  CLS:BLURB$(21 j«*vapmenu.cmp*:SX-liGOSUB  15550 

2800  INPUT  •  Enter  your  selection  (from  0  to  5)i  *,SLN 

2825  IF  SLN<0  OR  SLN>5  OR  SLN<>INT(SLN)  THEN  PRINT  PMT$(2) iGOTO  2775 

2850  IF  SLN<>  INT(SLN)  THEN  PRINT  PMT$(2):OOTO  2775 

2860  IF  SLN-0  THEN  GOTO  4475 

2875  INPUT  *  Ent«r  temperature  in  DegC  for  calculation  raaultt  *, 
TCAL:TCAK-TCAL*273.2:STAT$-"no* 

2900  ON  SLN  GOTO  2925,3150,3625,4100,4150 

2925  IF  LIMIT(5)-0  THEN  2950  ELSE  TM-PANV(92) :TB-PANV(93) 

2930  PRINT  PANM$ ( 92 )  *  -  *  PANV  ( 92 ):  PRINT  PANM$(93)  •  -  ■  PANV(93) :GOTO  3025 
2950  INPUT  •  Enter  malting  point  in  Dag  C:  *  ,TM 
2975  INPUT  •  Enter  boiling  point  in  Deg  C:  *,TB 

3000  IF  TM>TB  THEN  PRINT  *  Entries  are  probably  reversed]  Try  again,* iGOTO  2950 
3025  ™x-TM+273.2:TBR-TB+273.2sRTB-TBR/TCAX:RTH-THR/TCAK 
3050  IF  RTM<1  THEN  FACTOR-O  ELSE  FACTOR-6.8* (RTM-1) 

3075  LNPVA— (4.4*LOG(TBK) )* (1 .803* (RTB-1)-.B03*LOG(RTB) ) -FACTOR 
3100  ANSWER-760*EXP(LNPVA) 

3125  GOSUB  15800s  GOTO  4475 
3150  PREF-760 

3160  IF  LIMIT(5)«0  THEN  INPUT  *  Enter  boiling  point  in  DegCs  -.TREFsGOTO  3200 
ELSE  TREF-PANV(93) 

3170  IF  LIMIT(5)-1  THEN  IF  PANV(92)<TCAL  THEN  6TAT$- * yes *: GOTO  3250 
3180  IF  LIMIT(5)-1  THEN  GOTO  3250 

3200  PRINT  PMT$ (1 ) s INPUT  *  la  aubstanee  a  liquid  at  calculation  temp?  *, STATS 
3225  IF  STAT$<>*yes*  AND  STAT$o*no*  THEN  PRINT  PMT$(2) sGOTO  3200 
3250  PRINT  *  You  vill  be  ahovn  a  table  of  general  compound  groups.  Choose  the* 
3275  PRINT  *  number  of  the  group  describing  your  compound.  Note,  for  mixed* 

3300  PRINT  *  aromatic  constituents,~OH  takes  precedence.  For  simple  aromatics* 
3305  PRINT  *  consider  the  phenyl  group  as  a  n-Alkane  (selection  fl).* 

3325  SK-OsGOSUB  15675sGOSUB  4250sTREFK-TREF+273.2sTEQB-TCAK/TREFK 
3375  IF  STAT$-"yes*  THEN  MEX-.19sGOTO  3475 

3390  IF  SLN-5  THEN  DECP-(1/2.303)*LOG(760/PREF) :TEQM»TCAX/(TREFK+64*DECP) 

ELSE  TEQM-TEQB 

3400  IF  TEQM> . 6  THEN  HEX -.36 sGOTO  3*75 
3425  IF  TEQM<. 5  THEN  MEX-1.19:GOTO  3475 
3450  MEX-.8 

3475  FA1416-KFCAL* (8. 75*1. 987* (LOG(TREFK) -LOG (PREP/760) ) ) 

3500  COEP-FA1416/ ( .97*1.987 ) :TERM-3-2*TEQB 

3550  LNPVA-COEF*  (1-(1/TEQB)*  (TERH*MEX)-2*MEX*(LOG(TEQB)  )*TERM^(MEX-1)  ) 

3575  IF  SLN-5  THEN  LNPVA-LNPVA+LOG(PREP/?60) 

3580  IF  SLN-2  THEN  PRINT  *  Boiling  Point  (C)  •  *TREF  TAB(35) 

ELSE  PRINT  *  Ref  Pressure(mm  Hg)  -  *PREF  *  at  Ref  Temperature (C)  -  *TREF 
3590  IF  STATS-’yes*  THEN  PRINT  *  Asnbient  state  of  substance  ia  liquid* 

ELSE  PRINT  *  Ambient  state  of  substance  is  solid* 

3600  GOTO  3100 

3625  PRINT  *  Extrapolation  method  uses  tvo  Temp-VP  datum  and  assumes* 

3650  PRINT  *  that  Ln(VP)  proportional  to  1/T  degK  inside  and  beyond  range.* 

3675  PRINT  *  Inputa  for  the  Lover  temperature  in  range. *: 

input  *  Enter  lov  range  temp,  DegCt  *,T1C 
3700  INPUT  ■  Enter  lov  range  VP  in  mm  Hg:  *,P1 

3725  PRINT  *  Inputs  for  Higher  temperature  in  range.*: INPUT  *  Enter  high 
range  temp,  DegC:  *,T2C 

3750  INPUT  *  Enter  high  range  VP  in  mm  KG:  ",P2 

3775  IF  P2<P1  THEN  PRINT  *  Pressure  at  high  temp  lover  than  at  lov  tempi 
Try  again* :GOTO  3675 

3800  IF  T1C>T2C  THEN  PRINT  *  Temperatures  in  vrong  order!  Try  again. *:GOTO  3675 
3825  PRINT  *  Enter  the  value  from  1  to  3  vhich  best  describes  your  situation* 

3850  PRINT  *  Enter  ’1'  if  substance  is  liquid  at  calc,  temp  t  In  range’ 

3875  PRINT  *  Enter  *2'  if  substance  is  solid  at  calc,  temp  4  liquid  in  range* 

3900  PRINT  ”  Enter  *3'  if  substance  is  solid  at  calc,  temp  6  solid  in  range* 


Figure  A-ll.  Vapor  Pressure  Estimation  Subroutine  (page  1  of  2  pages) 
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3925  INPUT  *  Entar  your  valua  (1,  2,  or  3  ):  *,RSL 

3950  IP  RSL<>1  AND  RSL<>2  AND  RSL<>3  THEN  PRINT  PMT$(2)  iGOTO  3825 

3975  Y1*LOG(P1/760) :Y2-LOG(P2/760) :X1-1/(T1C*273.2) :X2-1/(T2C*273.2) 

4000  ASLOPE* { Y2-Y1 )/(X2-Xl )  :B1NT*Y1-ASL0PE*X1 

4025  IP  RSL-1  OR  RSL-3  THEN  LNPVA* ASLOPE* 1/TCAK+B I NT : GOTO  3100 

4050  IP  LIMIT<5)-1  THEN  TM*PANV(92)  iPRINT  PANM$(92)  •  -  ■  PANV(92) 

ELSE  INPUT  a  Entar  malting  point  ir.  dtgC:  *.TM 
4075  THX-TM+273.2:RTM*TKX/TCAX:FACTOR-6.8«(RTM-lh 
LNPVA*AS  LOPE*  1/TCAK+BINT-FACT0R:  GOTO  3X00 
4100  GOSUB  1650 :TM*MELT:TB* ANSWER: GOTO  3025 

4150  INPUT  *  Entar  rafaranca  temperature  for  reduced  pressure:  *,TREP 
4175  INPUT  *  Entar  VP  at  reference  temperature:  *,PREP 
4200  GOTO  3170 

. .Subroutine  to  down-load  and  select  Watson's  KP  Factor . 

4250  OPEN  *  VP  FACTOR.  CMP'  FOR  INPUT  AS  II 
4275  FOR  J%-1  TO  35:INPUT  11 ,XP(JI) :NEXT  J%:CLOSE  #1 
4325  CLS : BLURB$ ( 21 ) ■ * vpt able . cmp* : SK*1 : GOSUB  15550 
4350  INPUT  *  Enter  identification  number:  *,RPINDEX 

4375  IP  I  NT (KP INDEX )<>XP INDEX  THEN  PRINT  *  Non-Integer  Entry!!  Try  Again*: 
GOTO  4325 

4400  IP  KPINDEX<1  OR  XPINDEX>35  THEN  PRINT  *  Entry  must  be  in  range  1-35!! 
Try  Again* :GOTO  4325 

4425  KFCAL*KF(KF INDEX) : PRINT  *  RFCAL-  *  KP (KP I NDEX ): RETURN 
4475  PRINT  *  VP  computed  for  Deg  C  Temp  of  *TCAL: RETURN 


Figure  A-ll.  Vapor  Pressure  Estimation  Subroutine  (page  2  of  2  pages) 

causes  the  boiling  point  printout  to  be  bypassed,  as  the  SLN  «  4  condition 
refers  to  this  method  and  the  return  is  to  line  4100.  At  this  point,  MELT 
(the  variable  used  at  line  1650  to  represent  the  melting  point)  is  equated  to 
TM.  ANSWER  (which  at  this  point  contains  the  estimated  boiling  point)  is 
equated  to  TB.  Then  control  is  passed  to  line  3025,  where  the  SLN  «  1 
execution  train  carries  out  the  remainder  of  the  calculations. 

Watson's  reduced  pressure  method  (  SLN  »  5  )  requests  input  of  TREF  and  PREF 
at  lines  4150  and  4175,  respectively.  Then  control  passes  to  line  3170,  which 
is  In  the  SLN  «  2  routine.  At  line  3390,  an  adjustment  is  made  to  TEQM  If 
STATS  -  "no".  This  heuristic  adjustment  Is  needed  because  MEX  is  a  function 
of  the  boiling  point.  The  adjustment  is  based  on  my  study  of  temperature  - 
vapor  pressure  data  for  the  liquid  state  of  several  organic  substances  that 
are  solids  at  room  temperature.  For  vapor  pressures  in  the  range  of  1  to  400 
mm  Pg,  there  is  a  temperature  Increase  of  about  64  °C  for  each  magnitude 
increase  in  vapor  pressure.  TEQM  can  be  thought  of  as  a  "pseudo"  boiling 
point.  At  line  3475,  the  calculation  of  variable  FA1416  corresponds  to 
equation  14-24  In  Lyman  et  al.6.  At  line  3575,  the  correction  factor  for  the 
reduced  pressure  is  included  in  the  LNPVA  calculation. 

A. 8. 6  The  Koc  Estimation  Subroutine 

The  code  for  this  subroutine  Is  in  Figure  A-12.  The  options  presented  are  on 
the  information  screen  down-loaded  from  K0CINF0.CMP  (line  5025).  SLN  is 
entered  at  line  5050.  Options  1-3  deal  with  log  Kow  correlations  and  are 
accessed  at  line  5125;  ANSWER  Is  valued  at  line  5175,  5200  or  5225, 
respectively.  Then  control  is  pessed  to  line  5410*  which  displays  ANSWER  for 
all  calculation  options. 

For  water  solubility-based  correlations,  WS0L  is  supplied  by  the  first  GOSUB 
call  at  line  5250.  Options  other  than  SLN  -  7  require  molecular  weight 


5025  PNTR-101:BLURB$<21)-*kocinfo.cmp*  :SK-1 tGOSUB  15400 

5050  INPUT  *  Enter  your  selection  (Iron  0  to  7)t  *,SLN:IF  SLN-0  THEN  5425 

5075  IF  SLN  >7  OR  SLN<0  OR  INT(SLN) <>SLN  THEN  PRINT  PMT$(2): 

COSUB  15850:GOTO  5025 

5100  IF  SLN>3  THEN  5250  'leave  water  solubility  stuff  for  later 
5125  GOSUB  15750:  ON  SLN  GOTO  5175,5200,5225 
5175  ANSWER-10a(.806*LKOW*.473):GOTO  5410 
5200  ANSWER-10a{.881*LKOW+.214):GOTO  5410 
5225  ANSWER-10a(.533»LXOW+1.151):GOTO  5410 

5250  GOSUB  1582S:IF  SLN-7  THEN  ANSWER-10a(-.55*(1/2.303)»LOG(WSOL)*3.64) s 
GOTO  5410  ELSE  GOSUB  15775 

5325  LWS-(1/2.303)*LOG(WSOL/(1000*MWT)):ON  SLN-3  GOTO  5350,5375,5400 
5350  ANSWER-10a(-.602*LWS+.656):GOTO  5410 
5375  ANSWER»10a(-.64I*LWS+.53) :GOTO  5410 
5400  ANSWER-10a(-.45*LWS+1.05) 

5410  GOSUB  15800 
5425  RETURN 

. Subroutine  for  Rap  and  Ksv . 

5450  PNTR-102 

5475  BLURB$(21)-*kspksv.aop*:CLS:SK-l:GOSUB  15500 

5500  PRINT  •••*****•**«**•  ksv  OR  RSP  ESTIMATION  MENU  •**•**•**•**•**•*• 
5525  PRINT  *  Select  '0*  to  exit  without  any  estimate  performed.* 

5550  INPUT  *  Select  *1'  to  do  Travis  and  Arms  correlation:  *,SLN 
5575  IF  SLN-0  THEN  5700 

5600  IF  SLN  <>  1  THEN  PRINT  PMT$(2):GOTO  5500 

5625  GOSUB  1 S7 50: ANSWER-1 0a(1 . 558- . 578*LKOW) tGOSUB  15800 

5700  RETURN 

5725  PNTR-103 :GOTO  5475 

Figure  A-12.  Koc,  Ksv,  and  Ksp  Estimation  Subroutines. 


input.  Then,  the  equation  corresponding  to  SLN  «  7  provides  that  option's 
ANSWER.  Otherwise,  the  subroutine  to  supply  MWT  is  called.  At  line  5325,  the 
logarithm^  of  molar  solubility,  LWS,  is  computed  and  control  is  passed  to 
line  5350,  5375,  or  5400,  depending  upon  whether  SLN  is  4,  5  or  6, 
respectively. 

A. 8. 7  The  Ksp  and  Ksv  Estimation  Subroutine 

The  code  for  this  short  subroutine  (one  calculation  option)  is  also  shown  in 
Figu  c  A-12.  If  Ksp  is  the  prediction  variable,  the  subroutine  starts  at  line 
5450.  Otherwise,  the  subroutine  starts  at  line  5725.  From  line  5475,  both 
variables  are  processed  Identically.  Line  5625  issues  the  call  to  obtain 
value  of  log  Kow,  LK0W,  which  Is  used  to  evaluate  ANSWER  at  that  line. 

A. 8. 8  The  BCF  Estimation  Subroutine 

The  code  for  this  subroutine  Is  at  the  top  of  Figure  A-13.  Input  of  log  Kow 
Is  effected  at  line  6075  to  solve  the  equation 

BCF  ■  IOCO.76  x  Log  Kow  -  0.23) 

Similarly,  water  solubility  (WS0L)  Input  and  evaluation  of  ANSWER  occurs  at 
line  6125.  Koc  (KOC)  Is  input  at  line  6175;  the  equation  solved  Is  at  line 
6200.  In  lines  6125  and  6200,  LWS0L  and  LK0C  are  base  ten  logarithms;  the 
"log"  function  in  6WBASIC  is  in  terms  of  base  e. 
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. The  BCf  Bst  iut  ion  Subrout  in# 

5975  PNTR*111 : BLURBS (21) a*bcf info. cap*  :SK*1 : GOSUB  15400 
(000  INPUT  *  Enter  your  selection:  ,SLN 

(025  IP  SLN  <0  OR  SLN>4  OR  SLN<>INT(SLN)  THEN 
PRINT  'Entry  out  of  range* sGOTO  5975 
(050  ON  SLN+1  GOTO  (250,(075,(125,(175 
(075  GOSUB  15750sANSWER«10a ( . 76*LK0W-.  23)  .’GOTO  (225 

(125  GOSUB  15825jLWSOL-(1/2.303)*LOG(WSOL):ANSWER-10a(2.791-.5(4*LWSOL): 

GOTO  (225 

(175  IP  LIMlT(5)-0  THEN  INPUT  'Enter  Roc  Value  (L/kg):  *,R0C 
ELSE  KOC-PANV(lOl) SPRINT  PANM$(101)  *  -  'PANV(lOl) 

(200  LKOC-(1/2.303)«LOG(KOC):ANSWER-10a(1.119*LXOC-1.579):GOTO  (225 
(225  GOSUB  15800 
(250  RETURN 

. The  Xw  and  Kvp  Estimation  Subroutines . 

(275  PNTR-112 

(300  BLURB$(21)-'kvpvinfo.csp'tCLS:SR-0:GOSUB  15500 

(325  PRINT  '  •*•****'  SELECTION  MENU  POR  KWV  AND  KWP  **•**»**« 

(350  PRINT  '  Select  *0'  to  exit  without  any  estimate  performed* 

(375  PRINT  *  Select  '1*  to  do  Briggs'  equation* 

(400  PRINT  *  Select  '2‘  to  compute  based  on  Ksv* 

(425  PRINT  *  Select  '3'  to  compute  based  on  Xsp* 

(450  PRINT  *  Select  *4'  to  set  Kvp  equal  to  Kvv  (CHMPIL11  entry  only)* 

(475  INPUT  *  Enter  your  selection  value  herei  *,SLN 

(500  IP  LlMIT(5)-0  AND  SLN-4  THEN  PRINT  *  Sorry,  can’t  do  in  the  off-line 
■ode . * : GOTO  (325 

6525  IP  SLN  <0  OR  SLN>4  THEN  PRINT  PMT$(2):GOTO  6325 

6550  IP  SLNOINT  (SLN)  THEN  PRINT  PMT$(2)iGOTO  6325 

6575  IP  SLN-0  THEN  6599  ELSE  ON  SLN  GOSUB  6600,6675,6775,6850 

6580  IP  SLN-6  THEN  6325  ELSE  GOSUB  15800 

6599  RETURN 

6600  GOSUB  15750:El-.95*LXOW-2.05iE2— .178*(LKOW-1.7B)a2: 

ANSWER* 5* ( . 82+10aE1 ) * (10aE2 ) : RETURN 

6675  IP  LIMIT(5)-0  THEN  INPUT  *  Enter  Ksv:  *,KSV  ELSE 
KSV-PANV(103) SPRINT  PANM$(103)  *  •  *PANV(103) 

6700  IP  LIMIT(5)*0  THEN  INPUT  *  Enter  reference  foe:  *,POCR 
ELSE  POCR-PANV(IOS) SPRINT  PANM$(105)  ’  -  *  PANV(105) 

6725  IP  LIM1T(5)*0  THEN  INPUT  *  Enter  Kocs  *,KOCR 

ELSE  KOCR-PANV(lOl) SPRINT  PANM$(101)  *  -  *  PANV(lOl) 

6750  ANSWER-KSV* ( POCR'KOCR) : RETURN 

6775  IP  LIMIT(5)*0  THEN  INPUT  *  Enter  Ksps  *,KSV 

ELSE  KSV-PANV( 102) SPRINT  PANM$(102)  *  -  *  PANV(102) 

6800  IP  LlMIT(5)-0  THEN  INPUT  *  Enter  reiertneo  iocs  *,POCR 
ELSE  POCR-PANV( 104) SPRINT  PANM$(104)  *  »  *  PANV(104) 

6825  GOTO  6725 

6850  IP  LIMIT(6)-23  THEN  ANSWER-PANV{112) sRETURN 
6875  PRINT  *  Sorry,  can't  set  Kvv  -  Kvp.  Jot  down  value  of  Kvp  *s 
PRINT  *  you  want  to  use  and  insert  it  in  Kvv  in  another  pass 
through  CHMFIL11 . * :SLN*6:RETURN 
6950  PNTR*113  sGOTO  6300 

Figure  A-13.  BCF,  Kwv,  and  Kwp  Estimation  Subroutines. 

A. 8. 9  The  Kwv  and  Kwp  Estimation  Subroutine  — ~  ...  . 

The  code  for  this  subroutine  is  also  in  Figure  A-13.  If  entry  is  at  line 
6275,  PNTR  «  112.  Otherwise,  entry  is  at  line  6950,  and  PNTR  «  113.  Line 
6600  first  obtains  log  Kow  and  then  computes  ANSWER  for  the  first  option. 
Options  2  and  3  are  based  on  the  products  Ksv  x  Koc  x  foe  and 
Ksp  x  Koc  x  foe  respectively  as  estimators  for  Kwv  and  Kwp.  For  option  2, 
Ksv,  foe,  and  Koc  are  obtained  at  lines  6675,  6700,  and  6725,  respectively. 

For  option  3,  Ksp  is  entered  at  line  6775,  but  internally  is  still  called 
KSV.  The  foe  corresponding  to  Ksp  is  entered  at  line  6800.  Then  line  6725  is 
entered  to  obtain  Koc  ,  after  which  ANSWER  is  computed  at  line  6750. 

Option  4  applies  only  to  entry  from  CHMFIlll.  If  this  option  is  selected 
after  entry  from  OPEN  11,  line  6500  will  detect  this,  and  route  you  back  to 
the  selection  menu.  The  option  4  algorithm  is  at  line  6850.  LIMIT(6)  •  23 
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corresponds  to  entry  from  the  Kwp  routine  In  CHMFIL11.  In  this  case,  the 
algorithm  replaces  the  value  of  element  PANV( 113)  with  PANV(112). 

A. 8. 10  The  Kpat  Estimation  Subroutine 

The  code  for  this  short  subroutine  is  in  Figure  A-14,  and  includes  two 
estimation  methods.  The  first  is  at  line  4825,  where  log  Kow  is  input  (LKOW), 
the  second  is  at  line  4875,  where  water  solubility  (WSOL)  is  input. 

A. 8. 11  The  Kpm  Estimation  Subroutine 

The  code  for  this  subroutine  is  in  Figure  A-15.  Lines  7000-7200  display  the 
selection  menu  with  six  available  computation  options.  The  first  three 
options  use  fm  (called  FATMEAT).  Default  values  of  fm  and  fd  (called  FATMILK) 
are  pre-set  at  line  7260.  The  "ON  SLN  GOTO..."  command  at  line  7275  directs 
the  computation  for  the  given  option. 

Option  1  uses  the  default  value  of  FATMEAT  and  the  value  of  KPAT  supplied  at 
line  7325.  ANSWER  is  computed  for  options  1  through  3  at  line  7350  and 
displayed  by  line  7280.  Line  7290  is  a  common  RETURN  to  exit  from  all 
options.  Option  2  starts  at  line  7400.  The  G0SUB  call  to  line  15000  causes 
.LDS  files  to  be  displayed.  The  selected  file  to  be  down-loaded  is  input  at 
line  15100.  After  checks  for  proper  file-name,  the  designated  file  is  down¬ 
loaded  at  line  15250  into  the  first  90  elements  of  the  PANV  array.  The 
filename  is  loaded  into  PMT$(12)  at  line  15310.  Thus,  the  down-loaded  data 
are  in  an  on-line  stored  status.  The  return  from  this  subroutine  is  to  line 
7425.  Here,  if  PANV(42)  »  0  ,  a  message  is  displayed,  and  control  passes 
back  to  the  selection  menu.  This  avoids  a  potentially  fatal  "division  by 
zero"  error.  At  line  7485,  the  down-loaded  values  of  fm  and  fd  are  shown.  If 
undesired,  you  can  return  to  the  selection  menu. 

At  line  7500,  FATMEAT  is  valued,  and  control  passes  to  line  7325.  Option  3 
starts  at  line  7425  (in  option  2,  a  .LDS  file  was  immediately  down-loaded; 
here,  whatever  is  in  on-line  storage  is  accessed).  The  subsequent  steps  are 
described  above. 

Option  4  starts  at  line  7525,  where  the  value  of  KPD  is  obtained.  ANSWER  is 
computed  at  line  7550  for  options  4  through  6.  Option  5  follows  option  2 
through  line  7500.  There,  when  SLN  ■  5,  line  7600  is  accessed,  where  FATMEAT 
and  FATMILK  are  evaluated.  Then  line  7525  Is  accessed,  where  the  procedure 
for  option  4  is  joined.  Option  6  fellows  option  3  to  line  7500  and  then  skips 
over  to  line  7600,  at  which  execution  is  Identical  to  that  for  option  5. 

A. 8. 12  The  Kpd  Estimation  Subroutine 

This  subroutine's  code  is  In  Figure  A-16,  and  mirrors  that  of  the  Kpm 
subroutine,  replacing  Kpd  with  Kpm,  fm  with  fd,  and  vice  versa.  FATMEAT  and 
FATMILK  are  initially  valued  at  line  8050.  Option  1  uses  the  KPAT  from  line 
8075  and  the  default  FATMILK  to  compute  ANSWER  at  line  8100  .  In  option  2, 
the  subroutine  at  line  15000  (see  Figure  A-16)  is  entered  to  download  a  .LDS 
file.  The  return  is  to  lines  8175.  Here,  If  PANV(41)  >  0  ,  a  message  is 
displayed,  and  control  passes  back  to  the  selection  menu  to  avoid  a 
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4550 

4575 

4600 

4625 

4650 

4675 

4700 

4725 

4750 

4775 

4600 

4825 

4875 

4925 

4950 


PNTR*106 : BLURBS ( 21 )«*kpat inf 0.  cmp* :SX*0 (GOSUB  15400  .  . . 

PRINT  *  •*•«•*«**••*••***  Xpat  ESTIMATION  MZKU  ***•*••••••••••**•* (PRINT 

PRINT  •  Two  correlations  srs  presented  hsrs,  which  were  suggested  by 
PRINT  *  Garten  and  Trsbalkat  BS4T  17(10) (590-595(1983).  They  are 
PRINT  ■  considered  to  be  »ore  robust  than  earlier  relations  suggested 
PRINT  •  by  Xenaga  EStT  14(5):553-556(1980).*  .  .  , 

PRINT (PRINT  •  Select  'O'  for  exit  without  any  estimation  performed. 

PRINT  •  Select  *1'  for  G4T  Log  Row  correlation.* 

PRINT  *  Select  '2'  for  G6T  Hater  solubility  correlation.* 

INPUT  •  inter  your  selection  here:  *,6LN 

IP  SLN<>0  AND  SLN<>1  AND  SLN<>2  THEN  PRINT  PHT$(2)tG0T0  4550 


CM  SLN+1  GOTO  4950,4825,4875 

GOSUB  15750s  ANSWER*10a(-3. 935*. 511*LROW) (GOTO  4925 
GOSUB  15825:  ANSWER»10a(-1.633-.608*(1/2.303)*LOG(WSOL) ) 
GOSUB  15800 
RETURN 


Pigure  A-14.  Xpat  Estimation  Subroutine 


6975  PNTR*114 : BLURBS { 21 }»* kpninfo • emp* :SK*0 (GOSUB  15400 

7000  PRINT  *  **•*•**•***»••*•*••***  Xpm  ESTIMATION  MENU  ********************** 
7025  PRINTsPRINT  *  Enter  value  for  desired  function* 

7050  PRINT  *  Select  '0*  to  exit  without  any  calculation* 

7075  PRINT  *  Select  '1'  to  estimate  Xpm  from  Xpat  and  DEFAULT  fm  data* 

7100  PRINT  *  Select  *2'  to  estimate  Xpm  from  Xpat  and  ,LDS  file  fm  data* 

7125  PRINT  *  Select  '3'  to  estimate  Xpm  from  Xpat  and  on-line  fm  data* 

7150  PRINT  ’  Select  '4'  to  estimate  Xpm  from  Xpd  with  DEFAULT  fm/fd  data* 

7175  PRINT  *  Select  '5'  to  estimate  Xpm  from  Xpd  with  .LDS  file  fm/fd  data* 

7200  PRINT  *  Select  *6'  to  estimate  Xpm  from  Xpd  with  on-line  fm/fd  data* 

7225  INPUT  *  Enter  your  selection:  *,SLN 

7250  IP  I NT ( SLN ) <>SLN  OR  SLN<0  OR  SLN>6  THEN  PRINT  PMTS(2)sGOTO  7000 
7260  PATMEAT* . 25 : PATMI LX* .04 

7275  IP  SLN*0  THEN  7290  ELSE  ON  SLN  GOTO  7325,7400,7425,7525,7400,7425 
7280  GOSUB  15800 
7290  RETURN 

7325  IP  LIMIT(5)«0  THEN  INPUT  *  Enter  Xpat  Value:  *,XPAT 
ELSE  XPAT-PANV(106) (PRINT  PANMS(106)  *  -  *  PANV(106) 

7330  PRINT  *  The  fraction  of  fat  in  meat  is  *  PATMEAT 
7350  ANSWER-KPAT* PATMEAT (GOTO  7280 
7400  GOSUB  15000 

7425  IP  PANV(42)<>0  THEN  GOTO  7485  ELSE  PRINT  *  You  don't  have  a  valid 
data  setl  Last  .LDS  file  was:  *PMT$(12) 

7450  PRINT  *  If  no  file  shown,  no  on-line  data  exist.  If  a  file  is  shown, 
fm  or  fd* (PRINT  *  is  still  sero.  Try  another  method  and  check  file.*: 
GOTO  7000  ,  v 

7485  PRINT  *  The  current  values  of  fm  and  fd  are  *PANV(41)  *  and  *PANV(42) 

7488  INPUT  •  Do  you  wish  to  continue  with  on-line  info  7:  *,AN$ 

7490  IP  AN$**no*  THEN  GOTO  7000 

7495  IP  AN$o*yes*  AND  AN$<>*no*  THEN  PRINT  PMT$(2)(GOTO  7485 
7500  IP  SLN-2  OR  6LN-3  THEN  FATMEAT-PANVUl) (GOTO  7325  ELSE  GOTO  7600 
7525  IP  LIMIT(5)»0  THEN  INPUT  *  Enter  Xpd  Value:  *,XPD 
ELSE  XPD-PANV(115) (PRINT  PANM$(115)  *  •  *  PANV(115) 

7530  PRINT  *  The  fraction  of  fat  in  milk  is  *  PATMI LK 

7535  PRINT  •  The  fraction  of  fat  in  meat  is  *  PATMEAT 

7550  ANSWER* XPD* PATMEAT/PATMI LX : GOTO  7280 
7600  FATMEAT*PANV ( 41 ) ( PATMI LX*PANV (42): GOTO  7525 
. Subroutine  to  down-load  .LDS  file. . 

15000  PRINT  ’  REVIEW  OP  .LDS  PILES  AVAILABLE  "(PILES  PMT$(5)«-**.lds* 

15100  INPUT  *  ENTER  .LDS  PILE  (including  .Ids  extension):  *,PIL$ 

15150  IP  LEN(PIL$)>12  THEN  PRINT  *  Name  too  longlJ  Try  again*sGOTO  15100 
15200  IP  RIGHTS (P1L$,4)<>*. Ids*  THEN  PRINT  *  Wrong  file  type!!  Try  again*: 

GOTO  15100 

15250  OPEN  PMT$(5)+FIL$  FOR  INPUT  AS  #l:FOR  J%-1  TO  90: 

INPUT  fl,PANV(J%) (NEXT  J»:CLOSE  #1 
15300  PRINT  *  Downloading  of  "FILS  *  completed.* 

15310  PMT$(12)-PMT$(5)«-FIL$:LIMIT(3)-10:HMIT(4)-LIM1T(4)  OR  LIMITO) (RETURN 

Pigure  A-1S.  Xpm  Estimation  Subroutine 
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7725  PNTR*115:  BLURBS  ( 21  )>>*kpdinfo.  cap* :SK*0: GOSUB  15400 
7750  PRINT  *  **•••••**«•****•»**  Rpd  ESTIMATION  MENU 
7775  PRIMT {PRINT  *  Enter  value  for  desired  function* 

7S00  PRINT  *  Select  *0'  to  exit  without  any  calculation* 

7625  PRINT  *  Select  *1'  to  estimate  Kpd  from  Rpat  and  DEFAULT  fd  data* 

7850  PRINT  *  Select  '2'  to  estimate  Rpd  from  Rpat  and  .LDS  film  fd  data* 

7875  PRINT  *  Select  *3'  to  estimate  Rpd  from  Rpat  and  on-line  fd  data* 

7900  PRINT  *  Select  *4'  to  estimate  Rpd  from  Rpm  with  DEFAULT  fm/fd  data* 

7925  PRINT  *  Select  '5'  to  estimate  Rpd  from  Rpm  with  .LDS  file  fa/fd  data* 

7950  PRINT  *  Select  'S'  to  estiaate  Rpd  from  Rpm  with  on-line  fm/fd  data* 

7975  INPUT  *  Enter  your  selection:  *,SLN 

8000  IF  INT(SLN) <>SLN  OR  SLN<0  OR  SLN>6  THEN  PRINT  PMT$(2>:GOTO  7750 
8050  FATMEAT- . 25 : FATMILK- . 04 

8060  IF  SLN-0  THEN  8140  ELSE  ON  SLN  GOTO  8075,8150,8175,8260,8150,8175 
8075  IF  LIMIT<5)-0  THEN  INPUT  *  Enter  Rpat  Value:  *,RPAT 
ELSE  RPAT-PANV(106)  {PRINT  PANM$(106)  *  -  *  PANVU06) 

8080  PRINT  *  The  fraction  of  fat  in  silk  is  *  FATMI  LK 

8100  ANSWER -RPAT* FATMI LX 

8125  GOSUB  15800 

8140  RETURN 

8150  GOSUB  15000 

8175  IF  PANV(41)<>0  THEN  GOTO  8235  ELSE  PRINT  *  You  don’t  have  a  valid 
data  set l  Last  .LDS  file  was:  *pmt$(12) 

8200  PRINT  *  If  no  file  shown,  no  on-line  data  exist.  If  a  file  is  shown, 
fm  or  fd*:PRINT  *  is  still  xero.  Try  another  method  and  check  file.*: 
GOTO  7750 

8235  PRINT  *  The  current  values  of  fa  and  fd  are  *  PANV(41)  •  and  *  PANV(42) 

8240  INPUT  *  Do  you  wish  to  continue  with  on-line  info?:  *,AN$: 

IF  AN$-*no*  THEN  GOTO  7750 

8245  IF  AN$<>*yes*  AND  AN$<>*no*  THEN  PRINT  PMT$(2):GOTO  8235 
8250  IF  SLN -2  OR  SLN- 3  THEN  FATMI LK-PANV( 42 ): GOTO  8075  ELSE  GOTO  8325 
8260  IF  LIMIT(5)«0  THEN  INPUT  *  Enter  Rpm  Value:  *,RPM 
ELSE  KPM-PANVU14)  {PRINT  PANM$(114)  *  -  *  PANV(114) 

8280  PRINT  *  The  fraction  of  fat  in  milk  is  “  FATMI  LK: 

PRINT  *  The  fraction  of  fat  in  meat  is  *  FATMEAT 

8300  ANSWER-KPM* FATMI LK/FATKEAT : GOTO  8125 
8325  FATMEAT-PANV ( 4 1 )  :  FATMI LK-PANV(  42)  :GOTO  8260 

Figure  A-16.  Kpd  Estimation  Subroutine 


potentially  fatal  "division  by  zero"  error.  Otherwise,  the  values  of  fm  and 
fd  are  shown  at  line  8235.  If  you  continue,  FATMILK  Is  valued  at  line  8250, 
and  control  passes  back  to  line  8075.  In  option  3,  execution  starts  at  line 
8175,  and  then  follows  that  of  option  2. 

Option  4  starts  at  line  8260,  where  KPM  is  valued.  The  default  FATMEAT  and 
FATMILK  are  used  to  compute  ANSWER,  which  is  calculated  at  line  8300.  Option 
5  follows  the  option  2  algorithm  through  line  8250,  where  control  passes  to 
line  8325  to  value  FATMEAT  and  FATMILK.  Option  6  follows  the  option  3 
algorithm  through  line  8250,  where  control  also  transfers  to  line  8325. 

A. 8. 13  The  Kh  Estimation  Subroutine 

The  code  for  this  subroutine  is  shown  in  Figure  A-17.  Here,  Kh  is  computed  as 
the  ratio  of  vapor  pressure  to  aqueous  solubility,  adjusted  for  input  units, 
and  expressed  in  dimensionless  form.  Line  8650  asks  if  the  calculation  is  at 
25  °C.  If  you  respond  "no",  line  8725  requests  a  different  temperature. 
Otherwise,  25°C  is  assumed.  At  line  8750,  molecular  weight  data  is  obtained. 

The  next  command  picks  up  water  solubility  data  from  PANV(95)  if  you  entered 
CHMPRP11  from  CHMFIL11,  and  if  so,  transfers  execution  to  line  8975.  If  you 
entered  CHMPRP11  from  0PEN11,  you  have  the  option  to  enter  solubility  in  mg/L, 


A-43 


8450  PNTR-11 6: BLURBS { 21 )-"henry.anp":SR-0: GOSUB  15400 

8475  PRINT  *  »•••*•••*•*•*•*•«******•  Rh  ESTIMATION  MENU  *•»•*»»*»»♦»*••••*»*■ 
8525  PRINT  *  Select  'O'  to  exit  without  any  calculation." 

8550  PRINT  "  Select  '1'  to  compute  Rh  * 

8575  INPUT  "  Enter  your  selection:  * ,  SLN 

•  8600  IP  SLN-0  THEN  9250 

8625  IP  SLN<>1  THEN  PMT$(2):GOTO  8500 

<  8650  PRINT  PMT$ ( 1 ): INPUT  "  Is  temperature  of  calculation  25C  (298. 2R)  ?:  ",ANY$ 
8675  IP  ANY$<>"yes"  AND  ANY$o"no"  THEN  PRINT  PMT$(2):GOTO  8650 
8700  TEMP-298. 2:IP  ANY$«"yes"  THEN  8750 

8725  INPUT  "  Enter  temperature  in  degC  here:  ",TEMP:TEMP-TEMP+298.2 

8750  GOSUB  15775:IP  LIMIT(5)-1  THEN  WSOL-PANV ( 95 ): PRINT  PANM$(95)"  -  "WSOL: 

GOTO  8975 

8800  PRINTsPRINT  *  Hater  solubility  units  for  input.  Enter  '1*  for  mg/L  units," 
8825  INPUT  "  '2'  for  mole/L  units,  '3'  for  millimole/L  units:  ",UNO 
8850  IP  UN0<>1  AND  UNO<>2  AND  UNO<>3  THEN  PMT$(2):GOTO  8800 
8075  INPUT  "  Enter  solubility  limit  in  specified  units:  ".WSOL 
8900  CM  UNO  GOTO  8975,8925,8950 
8925  WSOL-WSOL»MWT"1000:GOTO  8975 
'  8950  WSOL«WSOL»MWT 

8975  IP  LIMIT(5)-1  THEN  VP-PANV ( 96 ): PRINT  PANM$(96)  •  -  "  VP:GOTO  9200 
;  9000  PRINTsPRINT  *  Vapor  pressure  units  for  input.  Enter  *1'  for  torr(mm  Hg) 

!  units" 

J  9025  PRINT  *  Enter  *2'  for  atmosphere  units,  enter  '3*  for  Pascal  units" 

*  9050  INPUT  "  Enter  code  for  units:  ",UNO 

9075  IP  UN0<>1  AND  UNO<>2  AND  UNO<>3  THEN  9000 

9100  INPUT  "  Enter  saturation  vapor  pressure  in  specified  units:  ",VP 
l  9125  ON  UNO  GOTO  9200,9150,9175 
9150  VP-VP* 760: GOTO  9200 
(  9175  VP-VP/133 . 3 

?  9200  ANSWER-(16.03*VP)/(TEMP*(WSOL/MWT)) 

J  9225  GOSUB  15800 
I  9250  RETURN 


Figure  A-17.  Kh  Estimation  Subroutine 


mole/L,  or  millimole/L.  The  unit  is  entered  (UNO,  line  8825).  followed  by  the 
numerical  value  (WSOL,  line  8875).  Based  on  the  unit  selecti'-i,  WSOL  is 
converted  to  a  mg/L  basis  (lines  8925-8950).  Line  8975  set  Vp  -  PANV(96)  if 
LIMIT(5)  «  1.  Otherwise,  manual  entry  of  VP  is  required.  First,  the  unit  is 
entered  (lines  9000-9050),  then  the  numerical  value  (line  9100).  Based  on  the 
unit  selection,  the  input  value  (VP)  is  converted  to  a  mm  Hg  basis  (lines 
9150-9175).  Line  9200  computes  ANSWER. 

A. 8. 14  The  Da  Estimation  Subroutine 

The  code  for  this  routine  is  shown  in  Figure  A-18.  DAINF0.CMP  contains  the 
information  screen  and  the  two  selection  options.  SLN  is  entered  at  line 
9300;  the  temperature  (TEMP)  is  entered  at  line  9375.  If  a  rough 
approximation  is  desired  (  SLN  ■  1  ),  the  calculation  occurs  at  line  9450. 

If  the  FS6  method  (  SLN  *  2  )  is  chosen,  its  instructions  are  displayed  at 
lines  9475-9700,  and  the  contents  of  LEBASA.CMP  are  down-loaded  (lines  9725- 
9750).  They  include  the  22-element  string  LBA$  ,  which  contains  the 
identification  of  atoms  or  structural  constituents,  the  22-element  array 
LBAS,  which  contains  the  LeBas  Volume  contributions  for  each  element  in 
LBA)  ,  and  the  22-element  array  MOW,  which  contains  the  atomic  weights  for 
atomic  constituents  (none  of  the  structural  constituents  involve  additional 
atoms).  The  tableau  (see  Figure  18,  main  text)  is  displayed  by  lines  9775- 
9800. 
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9275  PNTR-117:BLURB$(21)-*dainfo.cmp*:SK-l:G06UB  15400 
9300  INPUT  *  Inter  your  selections  *,SLN 

9325  IP  SLN<>0  AND  SLN<>1  AND  SLN<>2  THEN  PRINT  PMT$(2) iGOSUB  15050 tOOTO  9275 
9350  IP  Bit (-0  THEN  10425 

9375  INPUT  *  Inter  tamparatura  of  confutation  in  Deo  C:  *, TEMP: TEMP- 2 7 3. 2 -TEMP 
9400  IP  SLN-2  THEN  GOTO  9475  ELSE  GOSUB  15775 
9450  ANSWER- ((TEMPaI. 75 )/( 298. 2a1. 75) )*8/SQR(MWr) iGOTO  10390 
9475  PRINT  *  *•*  INSTRUCTIONS  POR  LB  BAS  VOLUME  EVALUATION  (PSG  METHOD)  ••*••• 
9500  PRINT  a  The  CRT  will  display  the  PSG  method  structure  units.* 

9525  PRINT  *  Tou  will  be  proaftad  to  enter  the  structural  conatituent* 

9535  PRINT  *  identification  number  for  a  constituent  in  the  pollutant.* 

9575  PRINT  *  The  cursor  vill  move  to  that  item.  There,  you  enter  the  number* 

:  9580  PRINT  *  of  units  in  the  pollutant  structure.  For  example,* 

!  9800  PRINT  *  if  your  structure  vas  CH2Cl-CHBr-COOH,  you  would  enter i* 

'  9625  PRINT  *  IDfl  tC]  ID#2  [Hj  4;  ID«4  [BrJ  1}  ID*6  [ClJ.l  >  and  ID  19* 
i  9650  PRINT  *  [Carboxylic  O]  2.  At  the  end  of  each  entry,  you  are  queried* 

■  9675  PRINT  *  to  continue  with  entries,  and  the  sequence  above  ia  repeated* 

9700  PRINT  *  until  you  respond  'no'  to  this  query. *iSK-0sGOSUB  15675:CLS 
9725  OPEN  'LEBASA.CXP*  POR  INPUT  AS  II 

9750  POR  J%-1  TO  23s  INPUT  f 1 ,LBA$ ( J%) ,LBAS( J% ) ,MOW( J«)  sNOLB( J%)-0 :NEXT  J%: 

CLOSE  #1 

9775  LOCATE  1,20 SPRINT  *  LEBAS  VOLUME  CONSTITUENT  UNITS* 

9800  POR  J«-l  TO  11  SPRINT  LBA$(2*J%-1)  TAB(35)  NOLB(2*J«-l) 

TAB (40)  LBA$(2*J%)  TAB (65)  NOLB(2*J%) sNEXT  J% 

9805  PRINT  LBA$(23)  TAB(35)  NOLB(23) 

9850  PRINT  *  Enter  ID#  when  prompted.  Then  cursor  vill  move  to  ID!  location.* 
9875  PRINT  *  At  that  location,  enter  the  number  of  units.* 
i  10000  LOCATE  16,lsFOR  J%-1  TO  4SPRINT  PMT$(6) sNEXT  J« 

10025  LOCATE  16,5sINPUT  *  Enter  ID!  of  constituent  here:  *,NID 
10050  IP  NID<1  OR  NID>23  THEN  LOCATE  17,5sPRINT  'Input  is  out  of  range. 

Try  again*sSK-Os GOSUB  15675sGOTO  10000 
10075  IP  NID>INT(NID)  THEN  LOCATE  17,5sPRINT  ‘Integer  input  needed. 

Try  again* sSX-OsGOSUB  15675:GOTO  10000 
10100  JLINE-l4INT((NID-l)/2) 

10125  RLINE-NID  MOD  2tIP  KLINE-0  THEN  PXOS-65  ELSE  PXOS-35 
10150  LOCATE  JLINE-1 ,PXOS: INPUT: *  *,NOLB(NID) 

10175  IP  NOLB(NID)-INT(NOLB(NID) )  THEN  GOSUB  10380sGOTO  10225 
10180  LOCATE  16,5sPRINT  ‘Integer  input  needed.  Try  again.  *s 
1  IOCATE  JLINE-l.PXOS sNOLB(NID) -0s PRINT  *  0  GOTO  10150 

j  10225  GOSUB  10360:LOCATE  18,1s INPUT*  Do  you  vant  to  do  more  (yes  or  no)?  *,ANT$ 
,  10250  IP  ANY$o*yes’  AND  ANY$<>*no*  THEN  PRINT  PMT$(2) sSK-Os 
GOSUB  15675SGOTO  10225 
10275  IP  ANTS-'yes*  THEN  9775 
•  10300  LASUM-0 sMWT-0 

10305  POR  J«-l  TO  23iLASUM-LASUM+NOLB(J%)*LBAS(J%):MWT«MWT+MOW(J%)*NOLB(J%): 
NEXT  J% 

10307  GOSUB  10380  s LOCATE  18, Is  PRINT  *Lebas  Volume  -  *  LASUM 

10310  IP  LASUM  <1  THEN  PRINT  *  Tou  probably  made  a  mistake  in  LeBas  Inputs. 

Try  again* sGOSUB  15850 sGOTO  9475 

10315  LOCATE  19,lsPRINT  *  Molecular  weight  confuted  from  LeBas  Volume 
Inputs  is  *MWT 

10317  IP  LIMIT(5)-0  THEN  10320  ELSE  LOCATE  20,lsPRINT  *  Mol  Wt  in  file  * 
PMT$(14)  *  -  *PANV(91 ) 

10318  LOCATE  21,lsPRINT  *  If  different,  error  either  in  Mol  wt  in  .DAT 
file  or  LeBas  inputs.* 

10320  LOCA/’E  22,1: PRINT  ■  Temperature  of  computation  is  *  TEMP-273.2  *  Celcius* 
10325  VOLB-.875*LASUM:VTERM-(20.1a(1/3)*VOLBa(1/3))a2 
10350  MRED-(28.97+MWT)/(28.97*MWT) 

10375  ANSWER-8. 639999E-03*TEMPa(7/4)*SQR(MR£D)/VTERM:GOTO  10390 
10380  LOCATE  17,l:POR  J%-1  TO  4:PRINT  PMT$ (6) sNEXT  Jt: RETURN 
10390  GOSUB  15800 
10425  RETURN 

Figure  A-18.  Da  Estimation  Subroutine 


The  data  entry  sequence  algorithm  starts  with  line  10025.  The  input  prompt 
*  Enter  10#  of  constituent  here:"  Is  displayed.  You  input  the  index  NID,  and 
lines  10100-10150  cause  the  monitor  cursor  to  move  to  the  right  of  the 
LBAS(NID)  string,  where  you  enter  the  number  of  constituents  NOLB(NID) .  Line 
10225  displays  the  prompt  *Do  you  «nt  to  do  Bore  (yes  or  no)?  to  which  your  response 
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is  ANY$.  If  ANY$  *  yes  ,  execution  is  transferred  back  to  line  9775  to 
redisplay  the  tableau  with  updated  information.  If  ANY$  ■  no  ,  the  LeBas 
Volume  (LASUM)  and  molecular  weight  (MWT)  are  computed  at  line  10300.  The 
LeBas  Volume  is  displayed  by  line  10307.  If  LASUM  <  0  ,  which  indicates  an 
input  error,  the  statement  of  line  10310  is  displayed,  and  execution  transfers 
to  line  9475,  to  repeat  the  volume  input  process. 

At  line  10315,  MWT  is  displayed.  If  you  entered  CHMPRP11  from  CHMFIL11,  the 
next  display  is  the  on-line  molecular  weight,  PANV(91).  MWT  is  used  to 
compute  Da.  Lines  10317-10320  are  the  advisory  message  to  check  both  entries 
in  case  there  is  a  discrepancy  greater  than  round-off  error  (atomic  weights 
used  are  to  the  nearest  0.1  atomic  unit.)  ANSWER  is  computed  at  line  10375. 

A. 8. 15  The  Kd  Subroutine 

The  code  for  this  subroutine  is  in  Figure  A-19.  The  selection  menu  is  at 
lines  10500-10650.  Line  10710  prevents  use  of  option  1  or  2  if 
LIMI T ( 5 )  «  0  ;  the  user  is  sent  back  to  line  10500.  Koc  is  picked  up  at  line 
10725.  If  SLN  *  1  ,  the  branch  at  line  10750  does  not  apply,  and  line  10800 
causes  the  subroutine  at  line  15000  to  be  entered  (see  Figure  A-16)  to 
download  the  specified  .LDS  file.  The  subroutine  return  is  to  line  10825, 
which  is  also  the  entry  point  for  processing  for  the  second  option.  Line 
10825  checks  if  all  of  the  foe  variables  PANV(56),  PANV(61),  or  PANV(65)  are 
zero;  if  so,  a  message  is  displayed,  and  the  user  is  sent  back  to  line  10500. 
Lines  10875-10885  determine  which  foe  to  use  of  the  three  on-line  values,  and 
that  foe  is  displayed  at  line  10890.*  ANSWER  is  computed  at  line  10925,  and 
the  result  printed  out  at  line  10950. 

For  the  last  option  (line  10600),  execution  starts  at  line  10900,  where  foe 
is  entered.  ANSWER  is  computed  at  line  10925  and  the  result  displayed  on  line 
10930. 

A. 9  16  The  Cattle  Toxicity  Limit  Subroutine 

The  code  for  this  subroutine  is  also  in  Figure  A-19.  The  informational  screen 
and  choice  of  options  is  in  CATT0X.CMP.  The  subroutine  for  SLN  *  1  starts 
at  line  11350,  where  NOEL  is  input  (either  manually  or  from  PANV(lOl)). 

ANSWER  is  computed  at  line  11360  and  displayed  at  the  60SUB  return  line  11343. 
The  other  options  are  straightforward. 


*  See  Table  1  for  the  foe  -  Kd  correspondence. 
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................ .Subroutine  to  Estimate  Kd . 

10450  CLS:PRINT  •****•*•*•****«•••«•  INFORMATION  ON  •***« 

1047$  BLURBS  ( 21  )-*kd  info,  cap*  :SK-0:GOSUB  15550 

10500  PRINT  *  SELECTION  MENU  TO  ESTIMATE  KD 


10525  PRINT  *  Select  'O'  to  exit  without  any  estimate  performed* 

10550  PRINT  *  Select  '1'  for  KD  from  foe  in  .LDS  file  (CHMFIL11  users  only II)  * 

10575  PRINT  *  Select  '2'  for  KD  from  on-line  foe  data  (CHMFIL11  users  only!!)* 

10600  PRINT  *  Select  *3'  for  KD  based  on  manual  input  of  foe  value* 

10625  PRINT  *  NOTE:  If  you  are  here  from  CHMFIL11,  program  keeps  track  of* 

10650  INPUT  *  which  KD  you  are  evaluating.  Enter  your  selection:  *,SLN 
10675  IP  SLN<>0  AND  SLN<>1  AND  SLN<>2  AND  SLN<>3  THEN  PRINT  PMT$(2):GOTO  10500 
10700  IP  SLN-0  THEN  10425 

10710  IP  LIMIT(5)-0  AND  SLN<>3  THEN  PRINT  *  Sorry,  can't  use  this  method. 

Use  only  '3'  *:GOTO  10500 

10725  IP  LIMIT(5)-0  THEN  INPUT  *  Enter  Koc  (SOC-vater  partition  coeff.):  *, 

KOC  ELSE  KOC-PANV(  101): PRINT  PANM$(101)  *  -  *PANV(101) 

10750  (Mi  SLN-1  GOTO  10825,  10900 
10800  GOSUB  15000 

10825  IP  PANV(56)<>0  AND  PANV{61)<>0  AND  PANV(65)<>0  THEN  GOTO  10875 

ELSE  PRINT  *  Invalid  data  set  may  exist  on-line.  Last  down-loaded 
file  is  *PMT$ (12 ) 

10850  PRINT  *  If  no  file  shown,  no  on-line  data  exist.  If  -file  shown, 

at  least  *:PRINT  *  one  foe  ■  0.  Either  try  another  file  or  method.*: 

GOTO  10500 

10875  IP  LIMIT(6)«28  THEN  FOC-PANV(56) 

10880  IF  LIMIT(6)-29  THEN  POC-PANV(61) 

10885  IP  LIMIT(6)«30  THEN  FOC-PANV{65) 

10890  PRINT  *  The  fraction  organic  carbon  (foe)  used  is  *POC:GOTO  10925 

10900  INPUT  *  Input  the  foe  value  for  the  soil  situation  in  question:  *,POC 

10925  ANSWER-POC*KOC:IP  LIMIT(5)-1  THEN  10950 

10930  PRINT  *  KD  -  *  ANSWER: RETURN 

10950  PRINT  PANMJ ( 90+LIMIT(6) )  *  -  *  ANSWER : RETURN 

. Subroutine  to  estimate  the  Cattle  Toxicity  Constraint  Limit . 

11300  PNTR-1 33 :  BLURB;  ( 21 )  -*cattox. emp* : SK-1  :GOSUB  15400 
11330  INPUT  *  Enter  your  selection  (from  0  to  3):  *,SLN 
11335  IP  SLN<>0  AND  SLN<>1  AND  SLN<>2  AND  SLN  <>3  THEN 
PRINT  PMT$ ( 2 ) : GOSUB  15850: GOTO  11300 
11340  IP  SLN-0  THEN  11348  ELSE  ON  SLN  GOSUB  11350,11400,11450 
11343  GOSUB  15800 
11348  RETURN 

11350  IP  LlMlT(5)-0  THEN  INPUT  •  Enter  Human  NOEL  in  mg/kg-day:  *,NOEL 
ELSE  NOEL-PANV(lOl)  :PRINT  PANM$(101)  *  -  *PANV(101) 

11360  ANSWER-NOEL* 100: RETURN 

11400  INPUT  *  Enter  Mammalian  Lifetime  NOEL  in  mg/kg-day:  *,NOEL 
11410  ANSWER-NOEL/ 1 0 : RETURN 

11450  INPUT  *  Enter  mammalian  90-day  NOEL  in  mg/kg-day:  *,NOEL 
11460  ANSWER-NOEL/100: RETURN 

Figure  A-19.  Estimation  Subroutines  for  Kd  and  the  Cattle  Toxicity  Constraint 
Limit 


APPENDIX  B.  EQUATIONS  USED  TO  COMPUTE  UNIT  CONCENTRATION  INTAKES  AND  GLOSSARY. 


The  equations  In  Table  B-l  are  used  In  COMPUT11  to  evaluate  the  elements  of  the 
INTAKE  array.  The  symbols  used  in  Table  1  correspond  to  of  Table  1  of  the  main 
text.  The  in-program  identification  of  these  symbols,  with  units,  is  provided 
in  Table  B-2.  Other  frequently-used  terms  and  acronyms  appear  in  Table  B-3. 
Certain  recurring  combinations  of  variables  are  defined  below: 

KD1  «  Kdl  ♦  thl/rhl 
KD2  «  Kd2  ♦  th2/rh2 
KD3  «  Kd3  +  th3/rh3 


TABLE  B-l.  INTAKE  EQUATIONS 


Index* 


1 

2 

3 

4 

5 

6 

7 

8 


11 

12 

13 

14 

15 

31 

32 

16 

33 
17 


Pathway  Description  Evaluation  Term 


Drink  water 
Eat  fish 
Eat  vegetables 
Eat  beef 

(cows  drink  water) 
Eat  beef 

(cows  drink  water. 
Drink  milk 
(cows  drink  water) 
Drink  milk 
(cows  drink  water. 
Skin  absorption 


WATER  PATHWAYS 

Ww  x  SWw 

Wf  x  SWf  x  BCF 

Wv  x  SWv  x  Kwv 

Wm  x  SWm  x  Kpm  x 

Wm  x  SWm  x  Kpm  x 

eat  pasture) 

Wd  x  SWd  x  Kpd  x 

Wd  x  SWd  x  Kpd  x 
eat  pasture) 

10  x  AV  x  Teff  x 

SOIL  fAIHMMS 


Uwm  /  Upm 

(  Kwp  ♦  Uwm  /  Upm  ) 
Uwd  /  Upd 

(  Kwp  ♦  Uwd  /  Upd  ) 
PC  x  S(PC)  ** 


Drink  water 
Eat  fish 
Eat  vegetables 
Eat  beef 

(cows  eat  pasture) 
Eat  beef 

(cows  eat  pasture, 


Eat  beef 

(cows  eat  pasture. 

Drink  milk 
(cows  eat  pasture) 


Ww  x  SWw  x  f (SI)  /  KD2 

Wf  x  SWf  x  BCF  x  f(S2)  /  KD2 

Wv  x  SWv  x  Kwv  /  KD1 

Win  x  SWm  x  Kwp  x  Kpm  /  KD1 


INTAKE(31) 
ingest  soil) 
Wm  x  SWm  x 
Wm  x  SWm  x 
INTAKE(31) 
Ingest  soil, 
Wm  x  SWm  x 
Wd  x  SWd  x 


♦  INTAKE(32) 

Kpm  x  Kwp  /  KD1 
Kpm  x  Usm  /  Upm 

♦  INTAKE(32)  ♦  INTAKE (33 ) 
drink  water) 

Kpm  x  Uwm  /  (  Upm  x  KD2  ) 
Kwp  x  Kpd  /  KD1 


*  Index  Identifies  elements  in  the  INPUTS  array;  see  Section  A. 7  and  Figure  A-6 
in  Appendix  A. 

**  Constant  required  for  unit  conversions. 
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TABLE  B-l.  INTAKE  EQUATIONS  (concluded) 

Index  Pathway  Description  Evaluation  Term 


18 

34 

35 

19 

36 

20 
21 
22 


Drink  milk 
(cows  eat  pasture. 


Drink  milk 
(cows  eat  pasture. 


INTAKE(34)  ♦  INTAKE(35) 
ingest  soil) 

Wd  x  SWd  x  Kpd  x  Kwp  /  KD1 
Wd  x  SWd  x  Kpd  x  Usd  /  Upd 
INTAKE(34)  ♦  INTAKE(35)  ♦  INTAKE(36) 
ingest  soil,  drink  water) 

Wd  x  SWd  x  Kpd  x  Uwd  /  (  Upd  x  KD2  ) 


Normal  soil  Wsn  x  SWsn 

Dusty  work  Wscw  x  SWscw 

Diffusion  from  basement  or  enclosure 

Rb  x  SRb  x  TAC  x  FAVN  /  VAR 


where;  .  - 

DAS  ■  Da  x  ep310/3  /  (ep3  +  th3)z 

C0F1  «  1000  x  Kh  /  KD3  *  .  r 

C0F2  -  (DAS  x  [ep3  ♦  th3/Kh  ♦  rh3xKD3/Kh])°-°  _ 

FN(TOb)  -  TOb  x  C0F1  x  C0F2  /  (3.1416  x  T0b)°-° 

FN(TLb)  -  TLb  x  C0F1  x  C0F2  /  (3.1416  x  TLb)0-5 

FAVN"-  2  x  FN(TOb)  x  FN(TLb)  /  (  TLb  -  TOb  ) 


23  Diffusion  from  open  area  (person  on  site) 

Rw  x  SRw  x  LS  x  FAVN  /  (86400  x  VW  x  MH)  * 

Wf APfi * 

DAS  «  Da  x  epl10/3  /  (epl  ♦  thl)2 
C0F1  »  1000  x  Kh  /  KD1  *  .  _ 

C0F2  -  (DAS  x  [epl  ♦  thl/Kh  ♦  rhlxKDl/Kh])0-5 
See  Pathway  22  for  FN(T0) ,  FN(TL) ,  and  FAVN** 

24  Skin  absorption  from  water 

10  x  AV  x  Teff  x  PC  x  S(PC)  x  f (SI)  /  KD2  * 


*  Constant  required  for  units  conversions. 

**  TOo  and  TLo  respectively  replace  TOb  and  TLb. 
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TABLE  B-2.  Listing  of  Variables  Used  in  Table  B-l  Equations  and  Other 
Variables  from  Table  1,  Main  Text. 


Index*  Title,  Units,  and  Symbol** 


1  Adult  body  weight,  kg  [BW] 

2  Child  body  weight,  kg  [BWc] 

3  Representative  water  intake,  L/day  [Wv] 

4  Representative  fish  Intake,  kg/day  [Wf] 

5  Representative  vegetable  Intake,  kg  dwb***/day  [Wv] 

6  Representative  beef  intake,  kg/day  [Wm] 

7  Representative  dairy  intake,  L/day  [Wd] 

8  Incidental  soil  Ingestion  rate,  normal  conditions,  kg/day  [Wsn] 

9  Incidental  soil  ingestion  rate,  dusty  conditions,  kg/day  [Wscw] 

10  Inhalation  rate,  enclosed  area  vapor  model,  mA3/day  [Rb] 

11  Inhalation  rate,  open  area  vapor  model,  mA3/day  [Rw] 

12  Body  surface  area  for  dermal  exposure,  mA2  [AV] 

13  Effective  daily  exposure  to  dermal  contaminant,  hr  [Teff] 

14-22  Not  used 

23  Adjustment  for  less  than  representative  water  intake  [SWw] 

24  Adjustment  for  less  than  representative  fish  intake  [SWf] 

25  Adjustment  for  less  than  representative  vegetable  intake  [SWv] 

26  Adjustment  for  less  than  representative  beef  intake  [SWm] 

27  Adjustment  for  less  than  representative  dairy  intake  [SWd] 

28  Adjustment  for  non-model  exposure  to  soil /dust  [SWsn] 

29  Adjustment  for  non-model  worksite  conditions  [SWscw] 

30  Adjustment  for  tenure  in  enclosed  area  vapor  model  [SRb] 

31  Adjustment  for  tenure  In  open  area  vapor  model  [SRw] 

32  Not  used 

33  Adjustment  for  tenure  in  exposure  to  bath  water  [S(PC)] 

34-40  Not  used 

41  Fat  content  of  beef,  fraction  [fm] 

42  Fat  content  of  milk,  fraction  [fd] 

43  Steer  uptake  of  water,  L/day  [Uven] 

44  Steer  uptake  of  forage,  kg  dwb/day  [Upm] 

45  Steer  incidental  uptake  of  soil  In  forage,  kg/day  [Usm] 

46  Dairy  cow  uptake  of  water,  L/day  [Uwd] 

47  Dairy  cow  uptake  of  forage,  kg  dwb/day  [Upd] 

48  Dairy  cow  incidental  uptake  of  soil  in  forage,  kg/day  [Usd] 

49  Time  average  body  weight  of  steer,  kg 

50  Weight  of  dairy  cow  In  milk  production,  kg 
51-55  Not  used 

56  Surface  soil  organic  carbon  fraction  [foci] 

57  Surface  soil  nominal  density,  kg/L  [rhl] 

58  Surface  soil  moisture  content,  fraction  [thl] 

59  Soil  to  water  dilution  factor  for  oral/dermal  water  source  [f(Sl)] 

60  Soil  to  surface  water  dilution  factor  for  fish  pathways  f[S2] 


*  Index  identifies  elements  In  the  PANMS  array;  see  Table  A-l  In  Appendix  A. 
**  These  descriptions  can  also  be  found  in  the  file  PARAM.CMP. 

***  dwb  ■  dry  weight  basis. 
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TABLE  B-2.  Listing  of  Variables  Used  in  Table  B-l  Equations  and  Other 
Variables  from  Table  1,  Main  Text  (continued). 


Index  Title,  Units,  and  Symbol 


61  Drinking  water  body  sediment  organic  carbon  fraction  [foc2] 

62  Drinking  water  body  sediment  nominal  density,  kg/L  [rh2] 

63  Drinking  water  body  sediment  moisture  content  [th2] 

64  Vapor-laden  top-soil  representative  void  fraction  [epl] 

65  Vapor-laden  soil  representative  org.  carbon  fraction  [foc3] 

66  Vapor-laden  soil  representative  bulk  density,  kg/L  [rh3] 

67  Vapor-laden  soil  representative  moisture  content  [th3] 

68  Vapor-laden  soil  representative  void  fraction  [ep3] 

69-75  Not  used 

76  Volume-area  ratio  of  basement(or  other  enclosure),  m  [VAR] 

77  Time  per  air  change  factor  for  enclosure  vapor  path, days  [TAC] 

78  Windspeed  at  open-air  site,  m/sec  [VW]  (lm/sec  ■  2.24mph) 

79  Height  in  which  mixing  occurs  at  open-air  site,  m  [MH] 

80  Initial  time  of  analysis(entry) ,  basement  diffusion  case,  day  [TOb] 

81  End  time  of  analysis,  basement  diffusion  case,  day  [TLb] 

82  Representative  area  length,  m  [LS] 

83  Initial  time  of  outside  soil  diffusion  case,  day  [?0o] 

84  End  time  of  outside  soil  diffusion  case,  day  [TLo] 

85-90  Not  used 

91  Molecular  weight,  g/gmol  [MW] 

92  Normal  or  extrapolated  melting  point, deg  C  [Tmelt] 

93  Normal  or  extrapolated  boiling  point, deg  C  [Tboil] 

94  Log  octanol-water  partition  coefficient  [LogKow] 

95  Water  solubility,  mg/L  [SW] 

96  Saturated  vapor  pressure,  mm  Hg  [VP] 

97-100  Not  used 

101  Soil  organic  carbon  (0C)  to  water  p.c.*,  L  water/kg  0C  [Koc] 

102  Soil  to  forage  partition  coefficient,  kg  soil/kg  dwb  forage  ICsp 

103  Soil  to  vegetable  partition  coefficient,  kg  soil/kg  dwb  [Ksv] 

104  Reference  soil  foe  for  Ksp  measurement. 

105  Reference  soil  foe  for  Ksv  measurement. 

106  Forage  to  meat  fat  p.c.,  kg  dwb  forage/kg  adipose  tissue  [Kpat] 
107-110  Not  used 

111  Fish  bioconcentration  factor,  L  a  fish  [BCF] 

112  Water  to  vegetable  partition  coe^  lent,  L/kg  dwb  [Kwv] 

113  Water  to  forage  partition  coefficient,  L/kg  dwb  forage  [Kwp] 

114  Plant  to  beef  partition  coefficient,  kg  dw  forage/kg  meat  [Kpm] 

115  Plant  to  dairy  partition  coefficient,  kg  dwb  forage/L  milk  [Kpd] 

116  Henry  Law  constant,  dimensionless  [Kh] 

117  Molecular  diffusivity  in  air,  nT2/day  [Da] 

118  Soil  to  water  partition  coefficient,  surface  soil,  L/kg  [Kdl] 

119  Soil  to  water  partition  coefficient,  sediment,  L/kg  [Kd2] 

120  Soil  to  water  p.c.,  mixed  surface/subsurface  soil,  L/kg  [Kd3] 

121  Dermal  permeability  constant,  cm/hr  [PC] 

122-125  Not  used 


*  p.c.  -  partition  coefficient 
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TABLE  B-2.  Listing  of  Variables  Used  in  Table  B-l  Equations  and  Other 
Variables  from  Table  1,  Main  Text  (concluded). 


Index  Title,  Units,  and  Symbol 


126  Long  term  no-effect  human  dose,  mg/kg-day  [DT] 

127  Shorter  term  no-effect  human  dose,  rag/kg-day  [DTc] 

128-130  Not  used 

131  Organoleptic  taste  limit  in  water,  mg/L 

132  Constraint  to  avoid  damage  to  aquatic  biota  systems,  mg/L 

133  Acceptable  limit  dose  to  cattle,  mg/kg-day 

134  Phytotoxic  limit  in  hydroponic  solution,  mg/L 

135  Phytotoxic  limit  in  soil,  mg/kg 

136  Fraction  organic  carbon  of  soil  used  in  phytotoxicity  study 
137-140  Not  used 


Table  B-3.  Frequently-Used  Terms  and  Acronyms. 


array  -  A  name  associated  with  several  variables  (elements),  each 
distinguished  by  a  numerical  identification  (index) 

BASIC  -  Programming  language  used  in  PHAS  (Microsoft  GW-BASIC) 

CHMFIL11  -  Program  used  to  prepare  chemical-specific  data,  and  handle  .DAT 
files  for  use,  storage,  or  modification 

CHMPRP11  -  Program  used  to  provide  information  about  chemical  properties 
and  selected  estimation  methods 

COMMON  -  Command  used  to  designate  variables  for  use  in  two  or  more 
programs  by  the  same  name 

.CMP  -  Extension  for  file  used  to  store  down-loaded  data  or  verbal 
descriptions  to  programs  within  PHAS 

C0MPUT11  -  Program  used  to  perform  PPLV  and  constraint  analyses 
current  session  -  All  transactions  in  PHAS  since  the  command  to  start 
execution  to  the  current  time 

.DAT  -  Extension  for  file  used  to  store  chemical-specific  data 

DIM  -  A  BASIC  command  to  designate  the  number  of  elements  in  an  array 

DOS  -  Disk  Operating  System  (Microsoft  MS-DOS,  Version  3.3)  for  IBM  personal 

computers  and  compatible  hardware  systems 

down-load  -  Transfer  of  information  from  a  file  in  storage  to  pmjram 
memory 

DUST  -  Data  Use  Status  Table 
dwb  -  Dry  weight  basis 

element  -  A  specific  member  of  an  array 

FIN  -  Fragment  identifier  number 

GOSUB  -  A  command  to  transfer  execution  to  a  specific  line  of  a  program. 

The  process  ends  with  a  RETURN,  which  transfers  control  to  the  line 
following  the  GOSUB  command. 

GOTO  -  A  command  to  transfer  execution  to  a  specific  line  of  a  program 
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Table  B-3.  Frequently-Used  Terms  and  Acronyms. 


index  -  A  number  which  identifies  a  particular  element  of  an  array 
INPUTS11  -  Program  used  to  prepare  non-chemical  specific  data,  and 
handle  .LOS  files  for  use,  storage  or  modification 

INSTALL  -  Program  used  to  identify  the  device  where  .DAT,  .LDS  ,  and  .PTH  file 
will  be  located  when  PHAS  is  executed. 

.LDS  -  Extension  for  file  used  to  store  non-chemical  specific  data 

on-line  storage  -  Information  in  program  memory  identified  by  common  variables 
and  accessible  by  any  PHAS  module 

0PEN11  -  Program  used  to  enter  and  exit  PHAS,  switch  between  other  programs, 
review  on-line  data,  and  read  advisory  messages  about  the  system 


PATWAY11  -  Program  used  to  prepare  scenario  information,  and  prepare  .PTH 
files  for  use  or  storage 


p.c.  - 
PHAS  - 
.PTH  - 
I  PPLV  - 


Partition  coefficient 

Pollutant  Hazard  Assessment  System 

Extension  for  file  used  to  store  scenario  information 

Preliminary  Pollutant  Limit  Value 


RETURN  -  The  BASIC  command  to  transfer  to  the  line  after  a  GOSUB  call 


SPLV  -  Single  Pathway  Limit  Value 

string  -  A  variable  whose  contents  are  taken  to  be  alphanumeric  (usually 
words) 

subroutine  -  A  series  of  commands  which  are  directed  by  a  GOSUB  and  is  ended 
by  a  RETURN 

variable  -  A  name  assigned  to  a  datum  for  processing  in  a  program 


t 
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APPENDIX  C.  VALUES  OF  VARIABLES  IN  THE  FILES  DEFALVA.LDS  AND  DEFALVC.LDS 

Variable  Value*  Comment 

and  Index 
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See  Appendix  B,  Table  B-2  for  units. 

For  brevity,  the  .LDS  extension  has  been  omitted. 
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